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APPENDIX 

The following appendicies are being filed with this application, the entire 
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Appendix A (88 pages) - User Interface; 
Appendix B (13 pages) - Database Tables; 
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BACKGROUND OF THE INVENTION 

The present invention relates generally to network based marketing 
techniques, and specifically to techniques for managing and analyzing subscriber information 
in a networked computer environment. 

Few could foresee the rapid expansion of direct marketing campaigns just a 
few years ago. Direct marketers use a variety of marketing techniques to provide information 
about new products and services to consumers. Direct mail, internet advertising, television, 
radio, newspaper, and magazine advertising provide channels of communication for product 
information to consumers. Surveys, purchasing information, transaction information and 
others provide information about consumer behaviour to the direct marketer. Computers and 
televisions that now have a place in our homes and offices enable product manufacturers, 
wholesalers and retailers to "take their case directly to the public," by providing a 
communications medium with direct access to the consumer. Never before have consumers 



been offered such a wide variety of choices in the products for their homes, work and 
recreation. 

As computer automation continues to provide an ever increasing access to 
consumers, marketers have discovered that conventional marketing information methods do 
5 not readily scale to the exponential proliferation of information accompanying direct 
marketing campaigns. For example, results from multiple targeted marketing campaigns 
must be sorted, assimilated, analyzed and managed on a continuing basis. 

Conventional techniques for information management exhibit inefficiencies 
when applied to the subscription marketing campaign field. For example, conventional 
10 techniques are frequently embodied in specialized software, or require custom solutions. 
Many conventional approaches require the user to learn and use ad hoc queries. 

What is really needed are subscription information management techniques 
designed to meet the needs of subscription marketers. 

1 5 SUMMARY OF THE INVENTION 

The present invention provides network based reporting techniques designed 
to meet the needs of subscription based marketers. Clients access, edit and report on their 
subscriber database using the Internet, for example. In a representative embodiment, a 
plurality of client computers connect to the Internet using a local area network (LAN), for 

20 example. The client computers pass security protocols before gaining access to web, 

application and database servers. Once connected, the client computers are able to retrieve 
and display information using a web browser. Database contents are denormalized to provide 
the capability to generate reports based upon relatively large amounts of information. 

In a representative embodiment, the present invention provides a method for 

25 analyzing subscription information. The method comprises receiving a plurality of 
subscription information and archiving the plurality of subscription information into a 
repository. Retrieving from the repository a plurality of selected subscription information 
and transforming the plurality of selected subscription information into transition table format 
information are also part of the method. Further, the method includes populating a facts 

30 database with the transition format information to produce one or more facts tables with a 

summarization of the transition format information. Denormalizing the summarization of the 
transition format information to produce a plurality of denormalized information is also part 
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of the method. The method also includes providing a report based upon the denormalized 
information. 

In a specific embodiment, the denormalization comprises populating selected 
information from one or more facts tables to a key table. The facts tables are stored in a facts 
5 table database, for example. The key table is stored in a grouping tables database. The 
plurality of facts tables are one of a source category table, a source table, a campaign table, 
and a panels table. 

In a specific embodiment, the method further comprises receiving input of a 
criteria for one or more reports and providing the report based upon the denormalized 

10 information according to the the criteria. In another specific embodiment, the method further 
comprises receiving input of a criteria for one or more tables and configuring the one or more 
tables based upon the the criteria. 

In another specific embodiment, the method further comprises receiving input 
of a username and a password and verifying whether the input of the username and a 

15 password corresponds to a user authorized to access reporting procedures. If the user is 
determined to be authorized, access to reporting procedures is provided to the user. In a 
specific embodiment, the method further comprises verifying whether the input of the 
username and a password corresponds to a user authorized to access administrative 
procedures. If the user is determined to be authorized access to administrative procedures is 

20 provided to the user. 

Alternative embodiments include an apparatus having a plurality of means for 
performing the above described method. 

In another representative embodiment, the present invention provides a 
computer program product for analyzing subscription information. The computer program 

25 product comprises a variety of software program code. For example, code that receives a 
plurality of subscription information and code that archives the plurality of subscription 
information into a repository are included in the program product. Code that retrieves from 
the repository a plurality of selected subscription information and code that transforms the 
plurality of selected subscription information into transition table format information are also 

30 part of the program product. The program product also includes code that populates a facts 
database with the transition format information to produce one or more facts tables with a 
summarization of the transition format information and code that denormalizes the 
summarization of the transition format information to produce a plurality of denormalized 
information, the denormalization comprising populating selected information from the facts 
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tables, stored in a facts table database, to a key table, stored in a grouping tables database. 
Further, code that provides a report based upon the denormalized information is also included 
in the program product. A computer readable storage medium for holding the codes also 
comprises the program product. 
5 In a yet further representative embodiment, the present invention provides a 

system for analyzing subscription information. The system comprises a variety of 
components. For example, one or more clients are connected to a web server by a computer 
network. An application server and a database server are connected to the web server by a 
communication medium, such as a computer network, for example The clients receive 

10 subscription information and forward the subscription information via the web server and the 
application server to the database server, which archives subscription information into a 
repository. The application server retrieves selected subscription information from the 
repository and transforms the selected subscription information into transition table format 
information. The database server populates a facts database with the transition format 

1 5 information in order to produce one or more facts tables with a summarization of the 

transition format information. The application server denormalizes the summarization of the 
transition format information in order to produce denormalized information. This 
denormalization comprises populating selected information from one or more facts tables, 
which can be stored in a facts table database, into a key table, which is stored in a grouping 

20 tables database, for example. The application server provides a report based upon the 
denormalized information. 

Numerous benefits are achieved by way of the present invention over 
conventional techniques. The present invention can provide network based reporting 
techniques designed to meet the needs of subscription marketers. Embodiments according to 

25 the present invention can provide real-time marketing information analysis techniques, which 
can provide information consumers within a business enterprise with up to the moment 
information and analysis for mission critical applications. 

In specific embodiments according to the present invention, denormalization 
and report optimizing processing provides improved reporting capabilities by reducing at 

30 least one of a number of joins of database tables that must be made and a number of records 
that must be reported. These reductions enable specific embodiments to provide reports more 
quickly that conventional techniques. Specific embodiments deliver reports over computer 
networks, such as the Internet. Further, specific embodiments can produce a report from a 
relatively large number of transactions within a reasonable delay time. 
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These and other benefits are described throughout the present specification, A 
further understanding of the nature and advantages of the invention herein may be realized by 
reference to the remaining portions of the specification and the attached drawings. 



5 BRIEF DESCRIPTION OF THE DRAWINGS 

Fig. 1 depicts a simplified block diagram of a distributed computer network 
which may incorporate an embodiment of the present invention; 

Fig, 2 depicts a simplified block diagram of a computer system which may 
incorporate an embodiment of the present invention; 
10 Fig. 3 illustrates a diagram of representative processing, manipulating, storing 

and loading of data in a specific embodiment according to the present invention; 

Fig. 4 illustrates a diagram of representative data acquisition, processing and 
loading in a specific embodiment according to the present invention; 

Figs. 5 A-5B illustrate diagrams of a representative online administrative 
15 system in a specific embodiment according to the present invention; 

Fig. 6 illustrates a diagram of a representative administrative framework that 
provides a grouping hierarchy in a specific embodiment according to the present invention; 

Fig. 7 illustrates a diagram of representative reporting process in a specific 

embodiment; 

20 Fig. 8 illustrates a diagram showing a representative hyperlink chain linking 

reports in a specific embodiment according to the present invention; 

Fig. 9 illustrates a diagram of a representative access security for a database 
and reporting system in a specific embodiment according to the present invention; 

Fig. 10 illustrates a diagram of a representative process for denormalizing 
25 database tables in a specific embodiment according to the present invention; and 

Fig. 11 illustrates a diagram of a representative process for optimizing report 
generation in a specific embodiment according to the present invention. 

DESCRIPTION OF THE SPECIFIC EMBODIMENTS 

30 The present invention provides network based reporting techniques designed 

to meet the needs of subscription based marketers. Clients access, edit and report on their 
subscriber database using the Internet, for example. In a representative embodiment, a 
plurality of client computers connect to the Internet using a local area network (LAN), for 
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example. The client computers pass security protocols before gaining access to web, 
application and database servers. Once connected, the client computers are able to retrieve 
and display information using a web browser. Database contents are denormalized to provide 
the capability to generate reports based upon relatively large amounts of information. 
5 Techniques are discussed for managing the process of information gathering, 

analysis and storage. Fig. 1 is a simplified block diagram of a distributed computer network 
10 which may incorporate an embodiment of the present invention. Computer network 10 
includes a number of computer systems 12, 15, 17, 14-1, 14-2, and 14-3. Computer systems 
12, 14-1, 14-2, and 14-3 are coupled to a communication network 16 via a plurality of 

1 0 communication links 18. The computer systems include a plurality of client computer 
systems 14-1, 14-2, and 14-3, and a plurality of server computer systems 12, 15, and 17. 
However, in particular embodiments, two or more of server systems 12, 15, and 17 may co- 
reside on a single computer. Client systems 14-1, 14-2, or 14-3 typically request information 
from a server computer system, which performs processing in response to the client request 

15 and provides the requested information to the client systems. For this reason, servers 
typically have more computing and storage capacity than client systems. However, a 
particular computer system may act as both as a client or a server depending on whether the 
computer system is requesting or providing information. 

Communication network 16 provides a mechanism for allowing the various 

20 components of distributed network 10 to communicate and exchange information with each 
other. Communication network 16 may itself be comprised of many interconnected computer 
systems and communication links. Communication links 18 may be hardwire links, optical 
links, satellite or other wireless communications links, wave propagation links, or any other 
mechanisms for communication of information. While in one embodiment, communication 

25 network 16 is the Internet, in other embodiments, communication network 16 may be any 
suitable computer network. An optional firewall (not shown) having a port for connecting 
thereto may be provided between the server computer 12 and communications network 16. 
Distributed computer network 10 depicted in Fig. 1 is merely illustrative of an embodiment 
incorporating the present invention and does not limit the scope of the invention as recited in 

30 the claims. One of ordinary skill in the art would recognize other variations, modifications, 
and alternatives. For example, more than one server system 12 may be coupled to 
communication network 16. 

Computer server systems 12, 15, and 17 may be configured to perform a 
plurality of functions according to the teachings of the present invention. These functions are 
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typically performed by software code modules executing on the computer server systems 12, 
15, and 17. The functions may also be performed by hardware modules coupled to server 
systems 12, 15, and 17, or by a combination of software and hardware modules. Functions 
performed by computer server systems 12, 15 and 17 include storing and retrieving 
5 information in database 109, and performing administrative functions, report generation 
functions, and other functions according to the teachings of the present invention. Details 
related to the various functions performed by server systems 12, 15 and 17 are described 
below. 

Client systems 14-1, 14-2, or 14-3 are used to interact with one or more of 

10 server systems 12, 15 and 17 using a program called a browser. The browser may be one of 
Internet Explorer™, by Microsoft™, or Navigator™ by Netscape™, or the like, but in a 
presently preferred embodiment, the browser emprises support for HTML 2.0 or higher, 
Active X and/or Java functions. For example, client systems 14-1, 14-2, or 14-3 may be used 
by users to access administrative functions and features online. Client systems 14-1, 14-2, or 

15 14-3 may also be used by users to obtain reports using online statistical report capabilities of 
specific embodiments. Once a user has provided a unique user identification and password, 
the user may use client system 14-1, 14-2, or 14-3 to participate in administrative and report 
generating capabilities of server systems 12, 15 and 17. Details related to the various 
functions performed by client systems 14-1, 14-2, or 14-3 are described below. 

20 According to the teachings of the present invention, computer system 12 is a 

web server system responsible for providing web pages to users at clients 14-1, 14-2 and 14- 
3, and storing information received from the clients in a format which allows later query or 
retrieval of the information. In a presently preferred embodiment, web server system 12, 
comprises Microsoft™ Internet Information Services (IIS) and Seagate™ Crystal Reports. 

25 The term "server system" as used in this application may refer to a single server system as 
depicted in Fig. 1, or may refer to one or more server systems distributed within computer 
network 10. If the functions are distributed across a plurality of computers, each comprises a 
copy of Microsoft™ Internet Information Services (IIS). Accordingly, functions or tasks 
performed by the present invention may be distributed to one or more servers coupled to 

30 communication network 16. According to a specific embodiment, the servers may be 

isolated behind firewalls for security purposes and communication between the servers may 
be encoded and encrypted. 

According to the teachings of the present invention, computer server system 
1 5 is an application server system responsible for providing administrative and reporting 
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capabilities. Application server system 15 comprises one or more administrative processes 
and one or more reporting processes. Administrative processes provide users with 
capabilities to create and edit database tables that contain marketing information and the like, 
provide security and access control functions, track usage, and the like. Reporting processes 
5 provide users with the capabilities to generate, and customize reports that provide insight into 
marketing information and the like. The administrative processes and reporting processes 
may be implemented in a variety of different ways, but in a presently preferred embodiment 
are implemented using Microsoft™ Visual Basic (VB) and PERL script programs (scripts). 

According to the teachings of the present invention, computer system 17 is a 

10 database server system responsible for providing database support. In a specific embodiment, 
the transaction information may be stored in a database 109 coupled to database server 
system 17. The term "database 109" as used in this application may refer to a single 
information store or to a plurality of information stores distributed within computer network 
10. For example, database 109 be locally coupled to database server system 17 or may be 

15 distributed across computer network 10 and accessed by database server system 17 via 
communication network 16. The database 109 may be a relational database, an object- 
relational database, an object-oriented database, a knowledge base, a text file, or any other 
way to store information. However, in a presently preferred embodiment, the database server 
system 17 comprises Oracle™ database and compatible hardware. In a specific embodiment 

20 of the present invention, database 109 is a relational database configured to store information 
according to a database schema. The information stored in database 109 may also be used to 
keep track of the various steps of the information analysis and storage process. For example, 
the status or progress of any particular step of the information acquisition process can be 
ascertained from the information stored in database 109. It should be apparent that although 

25 Fig. 1 depicts database 109 as a single entity, in a specific embodiment of the present 
invention, database 109 may comprise a plurality of databases. 

Fig. 2 is a simplified block diagram of an exemplary computer system 20 
capable of embodying one or more of client computer systems 14-1, 14-2, and 14-3, and 
server computer systems 12, 15 and 17 according to the present invention. Computer system 

30 20 typically includes at least one processor 24, which communicates with a number of 

peripheral devices via bus subsystem 22. These peripheral devices typically include a storage 
subsystem 32, comprising a memory subsystem 34 and a file storage subsystem 40, user 
interface input devices 30, user interface output devices 28, and a network interface 
subsystem 26. The input and output devices allow user interaction with computer system 20. 
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It should be apparent that the user may be a human user, a device, another computer, and the 
like. Network interface subsystem 26 provides an interface to outside networks, including an 
interface to communication network 16, and is coupled via communication network 16 to 
corresponding interface devices in other computer systems. 
5 User interface input devices 30 may include a keyboard, pointing devices such 

as a mouse, trackball, touchpad, or graphics tablet, a scanner, a barcode scanner for scanning 
article barcodes, a touchscreen incorporated into the display, audio input devices such as 
voice recognition systems, microphones, and other types of input devices. In general, use of 
the term "input device" is intended to include all possible types of devices and ways to input 

10 information into computer system 20 or onto computer network 16. 

User interface output devices 28 may include a display subsystem, a printer, a 
fax machine, or non- visual displays such as audio output devices. The display subsystem 
may be a cathode ray tube (CRT), a flat-panel device such as a liquid crystal display (LCD), 
or a projection device. The display subsystem may also provide non-visual display such as 

15 via audio output devices. In general, use of the term "output device" is intended to include 
all possible types of devices and ways to output information from computer system 20 to a 
human or to another machine or computer system. 

Storage subsystem 32 stores the basic programming and data constructs that 
provide the functionality of the various systems embodying the present invention. For 

20 example, the various modules implementing the functionality of the present invention may 
be stored in storage subsystem 32. These software modules are generally executed by 
processor(s) 24. In a distributed environment, the software modules may be stored on a 
plurality of computer systems and executed by processors of the plurality of computer 
systems. Storage subsystem 32 also provides a repository for storing the various databases 

25 storing information according to the present invention. Storage subsystem 32 typically 
comprises memory subsystem 34 and file storage subsystem 40. 

Memory subsystem 34 typically includes a number of memories including a 
main random access memory (RAM) 38 for storage of instructions and data during program 
execution and a read only memory (ROM) 36 in which fixed instructions are stored. File 

30 storage subsystem 40 provides persistent (non- volatile) storage for program and data files, 
and may include a hard disk drive, a floppy disk drive along with associated removable 
media, a Compact Digital Read Only Memory (CD-ROM) drive, an optical drive, removable 
media cartridges, and other like storage media. One or more of the drives may be located at 
remote locations on other connected computers at another site on communication network 16. 
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Information stored according to the teachings of the present invention may also be stored by 
file storage subsystem 40. 

Bus subsystem 22 provides a mechanism for letting the various components 
and subsystems of computer system 20 communicate with each other as intended. The 
5 various subsystems and components of computer system 20 need not be at the same physical 
location but may be distributed at various locations within distributed network 10. Although 
bus subsystem 22 is shown schematically as a single bus, alternate embodiments of the bus 
subsystem may utilize multiple busses. 

Computer system 20 itself can be of varying types including a personal 

10 computer, a portable computer, a workstation, a computer terminal, a network computer, a 
television, a mainframe, or any other data processing system. Due to the ever-changing 
nature of computers and networks, the description of computer system 20 depicted in Fig. 2 is 
intended only as a specific example for purposes of illustrating the preferred embodiment of 
the present invention. Many other configurations of a computer system are possible having 

15 more or less components than the computer system depicted in Fig. 2. Client computer 
systems 14 and one or more of server computer systems 12, 15 and 17 generally have the 
same configuration as shown in Fig. 2, with the server systems generally having more storage 
capacity and computing power than the client systems. 

Fig. 3 illustrates a diagram of representative processing, manipulating, storing 

20 and loading of data in a specific embodiment according to the present invention. Fig, 3 
illustrates a plurality of input data 101, comprising fulfillment data 101a, production data 
101b, and client data 101c. Fulfillment data 101a is produced by a business process used to 
process an order or transaction resulting from a subscription campaign, for example. The 
fulfillment data 101a can be created by an "in-house" system operated by a subscription- 

25 based business or an outside service provider. Fulfillment data includes transaction and 

summary level statistical and coded information related to subscription orders. Fulfillment 
data 101a may be in a variety of formats in specific embodiments, but is preferably 
alpha/numeric. Examples of data feed elements include sourcekey identifiers, subscription 
order quantities, dollar values, demographics, and the like. 

30 Production data 101b is produced by a business process (complimentary to 

fulfillment) having a function to physically manage an order shipment process and capture 
information related to shipment transactions. This type of process may be managed by a 
subscription-based business, or an outside service provider. Production data 101b may be in 
a variety of formats in specific embodiments, but is preferably alpha/numeric. Examples of 
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production data include product shipped, shipment date, location, subscription term, and the 
like. 

Client data 101c comprises data related to a subscription transaction or data 
that is supplied by a customer. Client data 101c is supplied either directly from a 
5 subscription-based business or via a service provider. Examples include demographics, web- 
hit information, address information, list information, and the like. 

Fig. 3 illustrates a data loading process 102 comprising of the archiving of 
low-level input files and the processing of these files. Data loading process 102 processes 
input files 101 to produce one or more transition tables 103. In a specific embodiment, the 

1 0 data loading application is implemented using the PERL programming language, data 

transformation service (DTS) and structured query language (SQL) loader script programs. 
During data loading process 102, input data 101 in import files is identified, validated and 
formatted. The transition tables 103 store input data 101 passed from the SQL loader 
program used in data loading process 102. A plurality of stored procedures 104 are invoked 

15 by the data loading process 102, in order to run summary procedures against the transition 
tables 103. These summary procedures update, replace or append summary tables 105 used 
for administrative or reporting purposes. Summarized data tables are referred to as "fact" 
tables. 

The fact tables 105 store information summarized from transition tables 103. 

20 Fact tables 105 store statistical information that is used for administrative and reporting 

purposes, and the like. A plurality of administrative procedures 106 apply business logic to 
client data in order to create meaningful management information. Administrative 
procedures 106 are used to make changes to groupings tables 107. Administrative procedures 
106 comprise analytic processes that add, edit or delete records in groupings tables 107, and 

25 are executed against the fact tables 105 and administrative lookup tables 109, using 
categories pre-defined in the groupings tables 107. In a specific embodiment, these 
categories correspond to an administrative hierarchy. 

Lookup tables 109 can be any of a pre-defined look up table, and a look up 
table defined by a client. Predefined lookup tables include, for example: a corporation, a 

30 division, a group, a product, and a source category. Client defined look up tables include: a 
campaign type, a campaign status, a panel type, a panel subtype, a package, a list category, a 
list name, a list segment, a source ID description. Lookup tables 109 are used to translate 
codes or values in fact tables 105, or to apply group categories in grouping tables 107. 
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Groupings tables 107 store information about subscription marketing 
campaigns and the like. Groupings tables 107 contain one or more field categories that 
reflect an administrative hierarchy of the client's business process. The groupings tables 107 
provide a means of categorizing data related to subscription marketing campaigns and 

5 relating these groupings to statistical facts tables 105. Facts tables 105, groupings tables 107, 
and administrative lookup tables 109 are stored in the database server system 17. In specific 
embodiments, facts tables 105, groupings tables 107, and administrative lookup tables 109 
comprise a single database, or may be stored separately in a plurality of databases. 

Clients may use online administrative functions that interact with facts tables 

10 105, administrative groupings tables 107, and administrative lookup tables 109 via a web 
browser operative on client system 14-1, which is coupled to web server system 12. Web 
server 12 comprises a computer and computer software that, together with the web browser 
operative on client 14-1, enable users to view HTML documents, and the like. Web server 12 
is coupled to application server 15. Web server 12 and application server 15 can be provided 

15 by an application service provider (ASP) web-site, for example. In specific embodiments, 
clients may use online reporting functions that interact with facts tables 105, administrative 
groupings tables 107, and administrative lookup tables 109 via a web browser operative on 
client system 14-2, which is coupled to web server 12. Web server 12 is coupled to 
application server 15. Web server 12 and application server 15 can be provided by an 

20 application service provider (ASP) web-site, for example. In specific embodiments, the 

server systems 12, 15, and 17 that implement report functions and the server systems 12, 15, 
and 17 that implement administrative functions may be co-resident on a single computer 
system, or may be distributed among a plurality of computer systems. Web server 12 
interfaces with database server system 17, that comprises a database for containing the 

25 various tables, such as facts tables 105, administrative groupings tables 107, and 
administrative lookup tables 109, illustrated in Fig. 3. 

Fig. 4 illustrates a diagram of representative data acquisition, processing and 
loading in a specific embodiment according to the present invention. Fig. 4 illustrates one 
process for taking transaction or summary level information 101 from one or more outside 

30 sources, analyzing the data, categorizing and loading the data into database tables for further 
analysis and administration. The input information 101 is presented in electronic form from a 
variety of storage mechanisms, such as a CD, a tape, or obtained using a file transfer protocol 
(FTP), or the like. The information 101 relates to fulfillment and processing of subscription- 
based transactions. The format and level of summarization of information 101 varies among 
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specific embodiments, and may be customized to varying degrees for individual clients. 
Frequency input files are input that varies according to the client. Further, input information 
101 can be obtained from a variety of sources, such as, for example a data processing vendor, 
or a client data source. 

5 The information 101 is processed and loaded into transisiton tables 103 by a 

plurality of subprocesses of the data process 102 of Fig. 3. A file archival process 202, 
imports the information 101 and archives it into a storage repository 203. In a specific 
embodiment, the information 101 is organized in folders, which are organized by client and 
date. Other organization paradigms may be used in various specific embodiments. A data 

10 loader process 204 retrieves archived information from the repository 203. Based upon a 
type, location and owner of the information in the repository 203, the data loader executes 
processing of the information. The information is processed from repository 203 in this 
manner in serial fashion. The data loader 204 may be a software process written in any of a 
variety of languages, but in a presently preferable embodiment, data loader 204 is a Java 

1 5 application that invokes scripts written in PERL. Once the information is processed from 

repository 203, a PERL DTS SQL loader transforms the information into a format compatible 
with storage into transition tables 103. This process also serves as a checkpoint restart 
mechanism. A checkpoint restart represents a rollback stage in the data loading process. If it 
is necessary to restore the database to an earlier version, this is accomplished by referring 

20 back to transition tables and then rerunning summary procedures. A rollback is triggered for 
a variety of reasons, including corrupted data feed files, corrupted summary procedures, and 
so forth. Then, as illustrated by Fig. 3, a plurality of stored procedures 104 are invoked to run 
summary procedures against the transition tables 103. These summary procedures update, 
replace or append summary tables 105 used for administrative or reporting purposes. 

25 Summarized data tables are referred to as "fact" tables. The facts tables 105 contain 

statistical information summarized from the transition tables 103 for administrative and 
reporting purposes. 

Fig. 5A illustrates a diagram of representative online administrative system in 
a specific embodiment according to the present invention. Administrative functions enable a 
30 user to add, edit or change records in various database tables. In a specific embodiment 
illustrated by Fig. 5A, the administrative functions are provided using a browser-based 
interface which can be executed on a client computer, such as client system 14-1, for 
example. Client 14-1 interacts with web server 12 over network connection 16, which can be 
any of a number of network topologies, and may include the Internet, for example. Web 
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server system 12 connects with application server system 15, having one or more 
administrative processes 303 stored thereon. Administrative processes 303 can be 
implemented in a variety of different ways in various specific embodiments. However, in a 
presently preferable embodiment, administrative processes 303 are Visual Basic (VB) scripts. 
5 Administrative processes 303 provide a variety of functionality to specific embodiments. For 
example, scripts written in the Visual Basic pro gamming language provide the basis for 
iteractive web pages. These scripts also include triggers that activate stored procedures 
which effect changes to database tables. Application server system 15 interfaces with 
database server system 17. The application server system include Visual Basic scripts, stored 

10 procedures, and security verification procedures. Application server system 15 has one or 
more administrative stored procedures 304 resident thereon. Administrative stored 
procedures 304 provide a central point for analytic processing that applies business logic to 
client data to create meaningful management information. Administrative procedures 304 are 
used to execute changes to groupings tables 107. These administrative procedures 304 

15 comprise analytic processes that add, edit or delete records in groupings tables 107, and are 
executed against the facts tables 105 and administrative lookup tables 109, using categories 
pre-defined in the groupings tables 107. These categories correspond to an administrative 
hierarchy. Clients interact with administrative procedures 304 via the application server 15 
which can be connected to an application service provider's (ASP) web-site, for example. 

20 The application server 15 activates various unique and proprietary stored procedures. The 
administrative procedures 304 provide the capability to update grouping categories 
corresponding to an administrative hierarchy in the groupings table 107 and user defined 
categories in the administrative tables 109. 

Fig. 5B illustrates a detail diagram of a representative online administrative 

25 system of Fig. 5 A in a specific embodiment according to the present invention. The 

administrative online system comprising administrative processes 303, application server 
system 15, administrative procedures 304, and database server system 17. Information in the 
groupings table 107 comprises a grouping 402 entitled "Groupings Tables:" that comprises a 
plurality of field categories, including a source, a campaign, a panel and a key. It is 

30 noteworthy that some specific embodiments may not have all of the field categories shown, 
and/or may comprise other field categories not illustrated by Fig. 5B. Administration table 
109 comprises a grouping 404 entitled "User-Administered Lookup Tables:" which 
comprises a plurality of field categories, as illustrated by Fig. 5B. It is noteworthy that some 
specific embodiments may not have all of the field categories shown, and/or may comprise 
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other field categories not illustrated by Fig. 5B. In a specific embodiment, users can create 
custom grouping categories in order to analyze the data and customize reporting. 
Administrative procedures 304 comprises a plurality of user triggered stored procedures 406 
that enable users to add or edit items into grouping tables 107. Further, administrative 
5 procedures 304 comprises a plurality of user triggered stored procedures 408 that enable 
users to customize administration tables 109. 

Fig. 6 illustrates an administrative framework that provides a grouping 
hierarchy in a specific embodiment according to the present invention. A grouping is a 
unique, proprietary categorization of information. Fig. 6 illustrates the administrative 

10 framework underlying Figs. 5A-5B, which provides a basis for administrative groupings, as 
well as enabling the user to create custom grouping categories in order to gain further insight 
and customize reports. Administrative frameworks support insights into a client's business 
process, which in turn provide a consistent means for reporting subscription marketing 
information, as well. Fig. 6 illustrates a representative groupings hierarchy 410 having a 

15 plurality of information categories. A Corporation 412 is a pre-defined grouping that denotes 
a company. Corporate values are stored in a corp info database table in the facts tables 
database 105. A Division 414 is a pre-defined grouping that denotes a division within a 
company. Division values are stored in the corp_info database table. A Group 416 is a pre- 
defined grouping that denotes a sub-division of a division. Group values are stored in the 

20 corp_info database table. A Product 41 8 is a pre-defined grouping that denotes a specific 
product sold. Product values are stored in the corp_info database table. A Source Category 
420 is a pre-defined grouping that denotes a category of business within a product (i.e. Agent, 
Billing, DTP, Gifts, Renewals). Source Category values are stored in a src_category database 
table in the facts tables database 105. A Source 422 is a user-defined grouping that denotes a 

25 channel of business within a source category grouping 420. A business channel is a group of 
campaigns. Source values are stored in a source database table in the groupings tables 
database 107, and propogated to all lower-level database tables. A Campaign 424 is a user- 
defined grouping that denotes a particular promotion effor or event. Campaign values are 
stored in a campaigns database table in groupings tables database 107, and propogated to all 

30 lower-level database tables. A Campaign Type 442 is a user-defined grouping that denotes a 
category of Campaigns. Campaign Type values are stored in the campaigns database table, 
and propogated to all lower-level database tables. A Campaign Status 444 is a user-defined 
grouping that denotes a category of Campaigns. Campaign Type values are stored in the 
campaigns database table, and propogated to all lower-level database tables. A Panel 
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(campaign subgroup) 426 is a user-defined grouping that denotes a campaign subgroup (a 
grouping of keys). Panel values are stored in a panels database table in groupings tables 
database 107, and propogated to all lower-level database tables. A Panel Type 432 is a user- 
defined grouping that denotes a category of panels. Panel Type values are stored in the 
5 panels database table, and propogated to all lower-level database tables. A Panel Subtype 
434 is a user-defined grouping that denotes a category of panels. Panel Subtype values are 
stored in the panels database table, and propogated to all lower-level database tables. A 
Package 436 is a user-defined grouping that denotes a category of panels or keys. Package 
values are stored in the panels database table, and propogated to all lower-level database 

10 tables. A Key 428 is an identifier that denotes a grouping of individuals who are sent a 

common promotion effort. Key values are stored in a keys database table in groupings tables 
database 107. A List Category 452 is a user-defined grouping that denotes a broad category 
or promotional lists. List Category values are stored in the keys database table. A 
promotional list is a specific source for names used to promote products and services. A List 

15 Name 454 is a user-defined grouping that denotes a specific source for names used to 

promote products and services. List Name values are stored in the keys database table. A 
List Segment 456 is a user-defined grouping that denotes a specific selection from a list. 
Selections are often based on demographic or behavioral characteristics (i.e., age, sex, 
region). List Segment values are stored in the keys database table. Fig. 6 is merely one 

20 example of an administrative framework. Many other administrative frameworks that 

support insights into a client's business process can be readily generated by those of ordinary 
skill in the art based upon the teachings of the present invention. Such administrative 
frameworks provide a consistent means for reporting subscription marketing information, as 
will be discussed in further detail below. 

25 Fig. 7 illustrates a diagram of representative reporting process in a specific 

embodiment. The reporting functions enable users to select reports and query database tables 
in order produce subscription marketing reports. Reporting functions enable users to 
selectively choose reports and query database tables in order produce useful subscription 
marketing reports. In a specific embodiment, the reporting functions are provided through a 

30 browser-based interface. Reports provide structured, consistent information that describes 
the business performance of marketing campaigns. Fig. 7 illustrates a report generating 
framework, comprising a browser-based interface which can be executed on a client 
computer, such as client system 14-2, for example. Client 14-2 interacts with web server 12 
over network connection 16, which can be any of a number of network topologies, and may 
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include the Internet, for example. Web server system 12 connects with application server 
system 15, having one or more report processes 501 stored thereon. Report processes 501 
can be implemented in a variety of different ways in various specific embodiments. 
However, in a presently preferable embodiment, report processes 501 are script programs 
5 written in the Visual Basic progamming language, which provide the basis for iteractive web 
pages displaying the reports. 

Application server system 15 connects to a database server system 17 that 
comprises database management functions, such as locating requested data records, and the 
like. Database server system 17 manages a report catalog table 503, comprising report file 

10 settings such as; report name, report alias, location, and related application settings. Database 
server system 17 also manages a saved report table 505 that stores information about saved 
reports. A saved report record includes report selection and location, selection query string, 
and parameters including user-defined report name, report group and comments. After a 
specific report file is selected by a user at client 14-2, the selection is communicated through 

15 network 16 to web server 12, which passes the selection to application server system 15. The 
application server system 15 queries the database server 17 to obtain the selected report from 
report catalog table 503, or from stored report table 505. Then, a valid query string is passed 
to the report in a report execution process 502. Then, the report is rendered by a report 
rendering process 504. Reports may be rendered in a variety of ways in various specific 

20 embodiments, however, in a presently preferred embodiment, the report is rendered through 
the browser via an ActiveX control viewer. The viewer presents a picture of grouping and 
statistical information according to a pre-defined format. Users control the content of the 
report by limiting the selection of data. 

Fig. 8 illustrates a diagram showing a representative hyperlink chain linking 

25 reports in a specific embodiment according to the present invention. Reports are hyperlinked 
to other reports, web-pages, or files. The hyperlink chain enables users to launch reports 
from within a report, or view related files or web-pages, thus reducing the amount of time 
required to access additional views of information. Fig. 8 illustrates a report 10 comprising a 
file, for example, that displays grouping and statistical information in a specific format. 

30 Users control the content of report 10 from a browser at client 14-2 by limiting the selection 
of data that is incorporated into the report. The selection of data is accomplished using a 
reporting online functional application. Report 10 comprises a first plurality of hypertext 
links 600, including a link to supplemental report 602 that provides a hyperlink to a process 
that renders a report file that displays grouping and statistical information in a specific 
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format. Data selection criteria is automatically passed to supplemental reports based on the 
origin of the hyperlink. Hypertext links 600 also includes a link to web page 604 that 
provides a hyperlink to a process that renders a web page, a link to file 606 that provides a 
hyperlink to a process that renders or executes a file, a link to an export to file 608 that 
5 provides a function that exports the grouping and statistical values presented in the ActiveX 
report viewer to a file (txt, xls, html). A second plurality of hypertext links 610 is also 
associated with report 10. Hypertext links 610 comprises links 612-618, which are analogous 
to links 602-608 of hypertext links 600. 

Fig. 9 illustrates a diagram of a representative access security for a database 

10 and reporting system in a specific embodiment according to the present invention. Security 
techniques enable specific embodments to prevent unauthorized access to client data. In a 
specific embodiment, secure users are provided with usernames and passwords. Access 
rights are set by restricting access to specific database tables depending on access security 
level settings, which are also associated with unique combinations of usernames and 

15 passwords. The security functions are provided to users of a browser-based interface which 
can be executed on a client computer, such as client system 14-1, for example. Client 14-1 
interacts with web server 12 over network connection 16, which can be any of a number of 
network topologies, and may include the Internet, for example. Web server system 12 
connects with application server system 15, having one or more administrative processes 303 

20 and reporting processes 501 stored thereon. Application server system 15 has access to a 
plurality of user security access tables 711, which store user access information, including 
username, password, database access rights settings and administrative functions rights 
settings, for example. Application server system 15 comprises stored procedures and security 
verification procedures, which can be implemented in a variety of different ways, but in a 

25 specific embodiment are Visual Basic scripts. A security verification procedure executing in 
application server system 15 performs a verification of a user's access authority 704. If the 
user has access rights to the administrative and/or reporting functions, which can be 
determined by matching a username and a password against user security access tables 711, 
the user is permitted to access the administrative and/or reporting functions. 

30 However, if a mismatch in username and/or password occurrs, then a 

verification failure process 702 returns the user to a web server logon page in order to provide 
another opportunity to submit a valid username and password. In a specific embodiment, the 
above described access control to the administrative and/or reporting functions of the 
application server 15 may be used in conjunction with access control provided by the web 
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server 12 to provide two layer security functionality. Further, in a specific embodiment, the 
above described access control to the administrative and/or reporting functions of the 
application server 15 may be implemented using a plurality of access levels. In a 
representative specific embodiment, a first security level provides access to basic functions, 
5 such as username and password selection and database query functions. A second security 
level provides access to administrative functions, such as setting permissions for database 
tables and the like. 

Fig. 10 illustrates a diagram of a representative process for denormalizing 
database tables in a specific embodiment according to the present invention. In accordance 

10 with the invention, database tables are denormalized by propagating information from one 
table to another, but there is no relationship between the tables by way of a database join 
operation. In a specific embodiment, this function is provided by specific procedures of the 
stored procedures 106. The specific stored procedures are activated by users using a browser 
program at client 14-1, for example, in cooperation with an administrative application. The 

1 5 denormalized database table enables report generation to be performed more quickly by 
reducing overhead associated with joining a plurality of database tables. 

Denormalization takes as input a plurality of tables, from the facts tables 105 
and lookup tables 109 and produces a key table 1009, which contains a complete set of 
grouping information, in groupings tables 107. The groupings (keys) table 107 is the basis 

20 for many of the reporting features available in specific embodiments. The groupings table 

107 is populated, updated and appended in a variety of ways. For example, a user may apply 
updates to groupings table 107 using the online administrative interface from a browser 
program on client 14-1. Another technique updates grouping table 107 automatically by 
referencing a set of user administered lookup tables 109. A yet further technique updates 

25 grouping table 107 automatically by referencing a set of lookup tables 109 maintained by a 
database administrator. The groupings table 107 stores the information used to create a 
variety of marketing reports corresponding to the administrative framework (groupings 
hierarchy), without having dependencies on other database tables. Specifically, the key table 
1009 in Fig. 10 is used for report generation in a process which matches groupings in the key 

30 table 1009. 

Fig. 10 illustrates a representative denormalization process, in which a source 
category table 1001, which is resident in adminitrative tables 109, provides information to a 
source table 1003, which is also resident in administrative tables 109, by an update source 
table process 1002. An update campaign table process 1004 reflects information from source 
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table 1003 to a campaign table 1005. An update panels table process 1006 propagates 
information from campaign table 1005 to a panels table 1007. An update keys table process 
1008 updates keys table 1009, in groupings tables 107 based upon the contents of panels table 
1007. In a specific embodiment, update source table process 1002, update campaign table 
5 process 1004, update panels table process 1006, and update keys table process 1008 are 
implemented as stored procedures. By carrying information from one database table to 
another, these procedures effectively link tables in different databases without requiring an 
database table join operation. 

A representative example of the information exchanged from one database 
10 table to another during denormalization processing follows: 



Source Category Table to Source Table 
1 5 product_id 

src_cat_name (source category name) 

Source Table to Campaign Table 
product_id 

20 src__cat_name (source category name) 

source (source name) 

Campaign Table to Panel Table 
product_id 

25 src_cat_name (source category name) 

source (source name) 

camp_name (campaign name) 

mail_date_fr (mail date) 

camp_status (campaign status) 
30 e_set_name (expense set name) 

r_set_name (revenue set name) 

budgeted__vol (budgeted volume) 

budgeted_grossjpct (budgeted gross response percent) 

35 Panel Table to Keys Table 

productid 

src_cat_name (source category name) 

source (source name) 

camp_name (campaign name) 
40 mail date fr (mail date) 

camp status (campaign status) 

e_set_name (expense set name) 

r_set_name (revenue set name) 

budgeted_yol (budgeted volume) 
45 budgeted_gross_pct (budgeted gross response percent) 

panel name (panel name) 

panel_start_date (panel mail date) 

panel type (panel type) 

panel_subtype (panel subtype) 
50 panel_pkg (package description) 

Keys Table Inputs and Overrides 
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All the field values listed above from the Panels Table plus: 
key_desc (source key description) 
mail qty_override (mail qty override qty) 
newsstand_sale (newsstand sale qty) 
5 newstand_sale_marker (subtotal marker - newstand only) 

list_cat_name (list category name) 
list_name (list name) 
list segement name (list segment name) 
list_cost_rollout_cpm (list rollout cost per thousand) 
1 0 list_costbasis (basis for calculation list costs) 

list_cost_factor (factor applied against list costs) 
merge_purge_qty (merge purge qty) 
subtotal_flag (subtotal marker) 
optional_effort_id (effort sequence marker) 

15 



Fig. 1 1 illustrates a diagram of a representative process for optimizing report 
generation in a specific embodiment according to the present invention. According to the 
invention, reports may be optimized for performance or other reasons by applying 

20 denormalizing processes, such as described above with reference to Fig. 10, to one or more of 
facts tables 105 and lookup tables 109, for example. Fig. 11 illustrates a process for 
optimizing report 10 in accordance with the invention. Fig. 1 1 illustrates facts tables 105 and 
lookup tables 109 which provide tables that serve as input to the denormalization processing 
described with reference to Fig. 10. Facts table 105 comprises one or more report specific 

25 fact tables 902. Lookup table 109 comprises one or more report specific lookup tables 904. 
Denormalization is applied to report specific fact tables 902 and report specific lookup tables 
904 to produce one or more denormalized report specific groupings tables 906 in groupings 
tables 107. Report 10 is created from the denormalized report specific groupings tables 906 
in groupings tables 107. In specific embodiments according to the present invention, this 

30 denormalization and report optimizing processing provides improved reporting capabilities 
by reducing at least one of a number of joins of database tables that must be made and a 
number of records that must be reported. These reductions enable specific embodiments to 
provide reports more quickly that conventional techniques. Specific embodiments deliver 
reports over computer networks, such as the Internet. Further, specific embodiments can 

35 produce a report from a relatively large number of transactions within a reasonable delay 
time. 

Although specific embodiments of the invention have been described, various 
modifications, alterations, alternative constructions, and equivalents are also encompassed 
within the scope of the invention. The described invention is not restricted to operation 
40 within certain specific data processing environments, but is free to operate within a plurality 
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of data processing environments. For example, the present invention may be used to extract 
and store information for any domain or industry which benefits from the information 
extraction and storage. Additionally, although the present invention has been described using 
a particular series of transactions and steps, it should be apparent to those skilled in the art 
5 that the scope of the present invention is not limited to the described series of transactions 
and steps. 

Further, while the present invention has been described using a particular 
combination of hardware and software, it should be recognized that other combinations of 
hardware and software are also within the scope of the present invention. The present 
10 invention may be implemented only in hardware or only in software or using combinations 
thereof. 

The specification and drawings are, accordingly, to be regarded in an 
illustrative rather than a restrictive sense. It will, however, be evident that additions, 
subtractions, deletions, and other modifications and changes may be made thereunto without 
15 departing from the broader spirit and scope of the invention as set forth in the claims. 
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WHAT IS CLAIMED IS: 



1 LA method for analyzing subscription information, comprising: 

2 receiving a plurality of subscription information; 

3 archiving said plurality of subscription information into a repository; 

4 retrieving from said repository a plurality of selected subscription information; 

5 transforming said plurality of selected subscription information into transition 

6 table format information; 

7 populating a facts database with said transition format information to produce 

8 at least one of a plurality of facts tables with a summarization of said transition format 

9 information; 

10 denormalizing said summarization of said transition format information to 

1 1 produce a plurality of denormalized information; and 

12 providing a report based upon said denormalized information. 

1 2 The method of claim 1, wherein denormalization comprises: 

2 populating selected information from at least one of a plurality of facts tables 

3 to a key table. 

1 3. The method of claim 2, wherein said facts tables are stored in a facts 

2 table database. 

1 4. The method of claim 3, wherein said key table is stored in a grouping 

2 table database. 

1 5. The method of claim 2, said at least one of a plurality of facts tables 

2 comprises at least one of 

3 source category table, a source table, a campaign table, a panels table. 

1 6. The method of claim 1, further comprising: 

2 receiving input of at least one criteria for at least one of a plurality of reports; 

3 and 

4 providing said report based upon said denormalized information according to 

5 said at least one criteria. 

1 7. The method of claim 1, further comprising: 
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2 receiving input of at least one criteria for at least one of a plurality of tables; 

3 and 

4 configuring said at least one of said plurality of tables based upon said at least 

5 one criteria. 

1 8. The method of claim 1, further comprising: 

2 receiving input of at least one of a username and a password; 

3 verifying whether said input of said at least one of a username and a password 

4 corresponds to a user authorized to access reporting procedures; and 

5 providing access to reporting procedures to said user if said user is determined 

6 to be authorized. 

1 9. The method of claim 8, further comprising: 

2 verifying whether said input of said at least one of a username and a password 

3 corresponds to a user authorized to access administrative procedures; and 

4 providing access to administrative procedures to said user if said user is 

5 determined to be authorized. 

1 10. A method for analyzing subscription information, comprising: 

2 receiving a plurality of subscription information; 

3 archiving said plurality of subscription information into a repository; 

4 retrieving from said repository a plurality of selected subscription information; 

5 transforming said plurality of selected subscription information into transition 

6 table format information; 

7 populating a facts database with said transition format information to produce 

8 at least one of a plurality of facts tables with a summarization of said transition format 

9 information; 

10 denormalizing said summarization of said transition format information to 

1 1 produce a plurality of denormalized information, said denormalization comprising populating 

12 selected information from at least one of a plurality of facts tables, stored in a facts table 

13 database, to a key table, stored in a grouping tables database; and 

14 providing a report based upon said denormalized information; 

15 wherein said at least one of a plurality of facts tables comprises at least one of 

16 source category table, a source table, a campaign table, and a panels table. 
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1 11. The method of claim 1 0, further comprising: 

2 receiving input of at least one criteria for at least one of a plurality of reports; 

3 and 

4 providing said report based upon said denormalized information according to 

5 said at least one criteria. 

1 12. The method of claim 10, further comprising: 

2 receiving input of at least one criteria for at least one of a plurality of tables; 

3 and 

4 configuring said at least one of said plurality of tables based upon said at least 

5 one criteria. 

1 13. The method of claim 10, further comprising: 

2 receiving input of at least one of a username and a password; 

3 verifying whether said input of said at least one of a username and a password 

4 corresponds to a user authorized to access reporting procedures; and 

5 providing access to reporting procedures to said user if said user is determined 

6 to be authorized. 

1 14. The method of claim 1 3 , further comprising: 

2 verifying whether said input of said at least one of a username and a password 

3 corresponds to a user authorized to access administrative procedures; and 

4 providing access to administrative procedures to said user if said user is 

5 determined to be authorized. 

1 1 5 . A computer program product for analyzing subscription information, 

2 said computer program product comprising: 

3 code that receives a plurality of subscription information; 

4 code that archives said plurality of subscription information into a repository; 

5 code that retrieves from said repository a plurality of selected subscription 

6 information; 

7 code that transforms said plurality of selected subscription information into 

8 transition table format information; 
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9 code that populates a facts database with said transition format information to 

10 produce at least one of a plurality of facts tables with a summarization of said transition 

1 1 format information; 

12 code that denormalizes said summarization of said transition format 

13 information to produce a plurality of denormalized information, said denormalization 

14 comprising populating selected information from at least one of a plurality of facts tables, 

15 stored in a facts table database, to a key table, stored in a grouping tables database; 

16 code that provides a report based upon said denormalized information; and 

17 a computer readable storage medium for holding the codes. 

1 16. The computer program product of claim 1 5, further comprising: 

2 code that receives input of at least one criteria for at least one of a plurality of 

3 reports; and 

4 code that provides said report based upon said denormalized information 

5 according to said at least one criteria. 

1 17. The computer program product of claim 1 5, further comprising: 

2 code that receives input of at least one criteria for at least one of a plurality of 

3 tables; and 

4 code that configures said at least one of said plurality of tables based upon said 

5 at least one criteria. 

1 18. The computer program product of claim 15, further comprising: 

2 code that receives input of at least one of a username and a password; 

3 code that verifies whether said input of said at least one of a username and a 

4 password corresponds to a user authorized to access reporting procedures; and 

5 code that provides access to reporting procedures to said user if said user is 

6 determined to be authorized. 

1 19. The computer program product of claim 1 8, further comprising: 

2 code that verifies whether said input of said at least one of a username and a 

3 password corresponds to a user authorized to access administrative procedures; and 

4 code that provides access to administrative procedures to said user if said user 

5 is determined to be authorized. 

1 20. An apparatus for analyzing subscription information, comprising: 
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2 means for receiving a plurality of subscription information; 

3 means for archiving said plurality of subscription information into a 

4 repository; 

5 means for retrieving from said repository a plurality of selected subscription 

6 information; 

7 means for transforming said plurality of selected subscription information into 

8 transition table format information; 

9 means for populating a facts database with said transition format information 

10 to produce at least one of a plurality of facts tables with a summarization of said transition 

1 1 format information; 

12 means for denormalizing said summarization of said transition format 

13 information to produce a plurality of denormalized information, said denormalization 

14 comprising populating selected information from at least one of a plurality of facts tables, 

15 stored in a facts table database, to a key table, stored in a grouping tables database; and 

16 means for providing a report based upon said denormalized information. 

1 21. A system for analyzing subscription information, comprising: 

2 at least one of a plurality of clients; 

3 a web server; connected to said at least one of a plurality of clients by a 

4 computer network; 

5 an application server; 

6 a database server; connected to said application server and said web server by 

7 a communication medium, wherein said at least one client receives a plurality of subscription 

8 information and forwards said plurality of subscription information via said web server and 

9 said application server to said database server, which archives said plurality of subscription 

10 information into a repository; and wherein 

1 1 said application server retrieves from said repository a plurality of selected 

12 subscription information and transforms said plurality of selected subscription information 

13 into transition table format information; and wherein 

14 said database server populates a facts database with said transition format 

15 information to produce at least one of a plurality of facts tables with a summarization of said 

16 transition format information; and wherein 

17 said application server denormalizes said summarization of said transition 

18 format information to produce a plurality of denormalized information, said denormalization 
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19 comprising populating selected information from at least one of a plurality of facts tables, 

20 stored in a facts table database, to a key table, stored in a grouping tables database; and 

21 wherein 

22 said application server provides a report based upon said denormalized 

23 information. 

1 22. The system of claim 21, wherein said at least one of a plurality of 

2 clients receives input of at least one criteria for at least one of a plurality of reports; and 

3 forwards said input via said web server to said application server, which provides said report 

4 based upon said denormalized information according to said at least one criteria. 

1 23. The system of claim 2 1 , wherein said at least one of a plurality of 

2 clients receives input of at least one criteria for at least one of a plurality of tables; and 

3 forwards said input via said web server to said application server, which configures said at 

4 least one of said plurality of tables based upon said at least one criteria. 

1 24. The system of claim 21 , wherein said at least one of a plurality of 

2 clients receives input of at least one of a username and a password; and forwards said input 

3 via said web server to said application server, which verifies whether said input of said at 

4 least one of a username and a password corresponds to a user authorized to access reporting 

5 procedures; and provides access to reporting procedures to said user if said user is determined 

6 to be authorized. 

1 25. The system of claim 24, wherein said application server verifies 

2 whether said input of said at least one of a username and a password corresponds to a user 

3 authorized to access administrative procedures; and provides access to administrative 

4 procedures to said user if said user is determined to be authorized. 
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PATENT 

Attorney Docket No.: 020508-000100US 



SUBSCRIPTION MEMBERSHIP MARKETING APPLICATION FOR 

THE INTERNET 

ABSTRACT OF THE DISCLOSURE 

The present invention provides network based reporting techniques designed 
to meet the needs of subscription based marketers. Clients access, edit report on, and analyze 
their subscriber database using the Internet, for example. In a representative embodiment, a 
plurality of client computers connect to the Internet using a local area network (LAN), for 
example. The client computers pass security protocols before gaining access to web, 
application and database servers. Once connected, the client computers are able to retrieve 
and display information using a web browser. Database contents are denormalized to provide 
the capability to generate reports based upon relatively large amounts of information. In 
addition, the data is transformed into a structure specifically to facilitate and enhance multi- 
channel subscription marketing activities. 

PA 3102715 v3 
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Description: This page presents a user logon dialog box requiring a valid username and password in order 
to gain access to the application server. 
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welcome.asp 

Description: This page provides a user welcome message and offers an option to choose either 
administrative functions or reporting functions. 
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adminla.asp 

Description: This page provides a user the ability to choose a product group for administration. A product 
group is defined in the corp_info database table. A product group is a grouping in IMT's proprietary 
administrative hierarchy. 
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admin2a.asp 

Description: This page provides a user the ability to choose a product for administration. A product is 
defined in the corp Jnfo database table. A product is a grouping in IMT's proprietary administrative 
hierarchy. 
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admin3a.asp 

Description: This page provides a user the ability to choose a source category for administration. A source 
category is defined in the srccategory database table. A source category is a grouping in IMT's 
proprietary administrative hierarchy. 
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admin4a.asp 

Description: This page provides a user the ability to administer source records in the source database table. 
A source is a grouping in IMTs proprietary administrative hierarchy. Administration is the adding, editing 
or deleting of records in a specific database table. 
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adminSa.asp 

Description: This page provides a user the ability to administer campaign records in the campaigns 
database table. A campaign is a grouping in IMT's proprietary administrative hierarchy. Administration is 
the adding, editing or deleting of records in a specific database table. 
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admin6a,asp 

Description: This page provides a user the ability to administer panel records in the panels database table. 
A panel is a grouping in IMT's proprietary administrative hierarchy. Administration is the adding, editing 
or deleting of records in a specific database table. 
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adminkevleft.asp / adminkevri^htasp 

Description: This page provides a user the ability to administer key records in the keys database table. A 
key is a grouping in IMT's proprietary administrative hierarchy. Administration is the adding, editing or 
deleting of records in a specific database table. 
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Description; This page provides a user the ability to edit key records in the keys database table. A key is a 
grouping in IMT's proprietary administrative hierarchy. 
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addsource.asp 

Description: This page provides a user the ability to add source records in the source database table. A 
source is a grouping in IMT's proprietary administrative hierarchy. 
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editsource.asp 

Description: This page provides a user the ability to edit source records in the source database table. A 
source is a grouping in IMTs proprietary administrative hierarchy. 
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Description: This page provides a user the ability to add campaign records in the campaign database table. 
A campaign is a grouping in IMTs proprietary administrative hierarchy. 
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Description: This page provides a user the ability to edit campaign records m the campaigns database 
table. A campaign is a grouping in IMT's proprietary administrative hierarchy. 
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adminSa.asp 

Description: This page provides a user the ability to administer campaign records in the campaigi 
database table. A campaign is a grouping in IMT's proprietary administrative hierarchy. Adminis; 
the adding, editing or deleting of records in a specific database table. 
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Description: This page provides a user the ability to administer panel records in the panels database table. 
A panel is a grouping in IMT's proprietary administrative hierarchy. Administration is the adding, editing 
or deleting of records in a specific database table. 
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addpanel.asp 

Description: This page provides a user the ability to add panel records in the panels database table. A 
panel is a grouping in IMT's proprietary adrninistrative hierarchy. 
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Description: This page provides a user the ability to edit panel records in the panels database table. A 
panel is a grouping in IMT's proprietary administrative hierarchy. 
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drilhasp 

Description: This page provides a user the ability to search for records in database tables using a drill-down 
interface. The drill-down interface corresponds to IMT's proprietary database hierarchy. 
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adminsearch.asp 

Description: This page provides a user the ability to search for records in database tables using a 
combination of database selections and text string selections. Records are displayed in a table format. 
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avail.asp 

Description: This page provides a user the ability to search for records in the available keys table using a 
positions of the source key record as a filtering mechanism. 
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tabautosetup,asp 

Description: This page provides a user the ability to administer autosetup tables. Autosetup setup tables 
are a series of database tables that provide categorization instructions in order to build user-defined 
grouping records automatically. Adrninistration is the adding, editing or deleting of records in a specific 
database table. 
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add autosetup.asp 

Description: This page provides a user the ability to add autosetup scheme records in the 
autosetup_scheme database (lookup) table. An autosetup scheme is a basic set of instructions for creating 
user defined groupings depending on the structure of a source key. 




edit autosetup.asp 

Description: This page provides a user the ability to edit autosetup scheme records in the 
autosetup_scheme database (lookup) table. An autosetup scheme is a basic set of instructions for creating 
user defined groupings depending on the structure of a source key. 




add campaigndef.asp . 
Description: This page provides a user the ability to add autosetup campaign definition records in the 
autosetup_campaign_def database (lookup) table. An autosetup campaign definition is a basic set of 
instructions for creating user defined campaign groupings depending on the structure of a source key. 



edit campigndef.asp 

Description: This page provides a user the ability to edit autosetup campaign definition records in the 
autosetupcampaigndef database (lookup) table. An autosetup campaign definition is a basic set of 
instructions for creating user defined campaign groupings depending on the structure of a source key. 




add renewal psdef.asps . 
Description: This page provides a user the ability to add autosetup prior source definition records in the 
autosetup_renewal_psdef database (lookup) table. An autosetup prior source definition is a basic set of 
instructions for creating user defined source groupings depending on the structure of a source key. 




edit renewal psdefasp . 
Description: This page provides a user the ability to edit autosetup prior source definition records in the 
autosetup_renewal_psdef database (lookup) table. An autosetup prior source definition is a basic set of 
instructions for creating user defined source groupings depending on the structure of a source key. 
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add panel def.asp 

Description: This page provides a user the ability to add autosetup panel definition records in the 
autosetup_j)anel_def database (lookup) table. An autosetup panel definition is a basic set of instructions 
for creating user defined panel groupings depending on the structure of a source key. 




edit panel def.asp 

Description: This page provides a user the ability to edit autosetup panel definition records records in the 
autosetup_panel_def database (lookup) table. An autosetup panel definition is a basic set of instructions 
for creating user defined panel groupings depending on the structure of a source key. 
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setupcampstatasp 

Description: This page provides a user the ability to administer campaign status records in the 
prod_camp_status database (lookup) table. A campaign status is a grouping in IMT's proprietary 
administrative hierarchy. Administration is the adding, editing or deleting of records in a specific database 
table. 
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addcampstatasp 

Description: This page provides a user the ability to add campaign status records in the 
prod_camp_status database (lookup) table. A campaign status is a grouping in IMT's proprietary 
administrative hierarchy. 




editcampstat.asp 

Description: This page provides a user the ability to edit campaign status records in the 

prod camp status database (lookup) table. A campaign status is a grouping in IMT's proprietary 

administrative hierarchy. 
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setupcamptvpe.asp 

Description: This page provides a user the ability to administer campaign type records in the 
prodcamptype database (lookup) table. A campaign type is a grouping in IMT's proprietary 
administrative hierarchy. Administration is the adding, editing or deleting of records in a specific database 
table. 
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addcamptvpe.asp 

Description: This page provides a user the ability to add campaign type records in the prodcampjype 
database (lookup) table. A campaign type is a grouping in IMT's proprietary administrative hierarchy. 
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editcamptype.asp 

Description; This page provides a user the ability to edit campaign type records in the prod_camp_type 
database (lookup) table. A campaign type is a grouping in IMT's proprietary administrative hierarchy. 




setupesetasp 

Description; This page provides a user the ability to administer expense set records in the expense_sets 
database (lookup) table. Administration is the adding, editing or deleting of records in a specific database 
table. 
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addesetasp 

Description: This page provides a user the ability to add expense set records in the expense_sets database 
(lookup) table. 
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editeset.asp 

Description: This page provides a user the ability to edit expense set records in the expense_sets database 
(lookup) table. 
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setuplistcat.asp 

Description: This page provides a user the ability to administer list category records in the listcats 
database (lookup) table. A list category is a grouping in MTs proprietary administrative hierarchy. 
Administration is the adding, editing or deleting of records in a specific database table. 
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addlistcatasp 

Description: This page provides a user the ability to add list category records in the list_cats database 
(lookup) table. A list category is a grouping in IMT's proprietary administrative hierarchy. 
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editlistcatasp 

Description: This page provides a user the ability to edit list category records in the list_cats database 
(lookup) table. A list category is a grouping in IMT's proprietary administrative hierarchy. 
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setuplistname.asp 

Description: This page provides a user the ability to administer list name records in the list_names 
database (lookup) table. A list name is a grouping in IMT's proprietary adrninistrative hierarchy. 
Administration is the adding, editing or deleting of records in a specific database table. 
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addlistname.asp 

Description: This page provides a user the ability to add list name records in the list_names database 
(lookup) table. A list name is a grouping in IMT's proprietary administrative hierarchy. 




editlistname.asp 

Description: This page provides a user the ability to edit list name records in the list_names database 
(lookup) table. A list name is a grouping in IMT's proprietary administrative hierarchy. 




setuplistsegment.asp 

Description: This page provides a user the ability to administer list segments records in the list_segments 
database (lookup) table. A list segment is a grouping inlMT's proprietary administrative hierarchy. 
Administration is the adding, editing or deleting of records in a specific database table. 
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List Segment - Microsoft Internet Explorer 
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addlistsegements.asp 

Description: This page provides a user the ability to add list segments records in the list_segments 
database (lookup) table. A list segment is a grouping in IMT's proprietary administrative hierarchy. 




editlistseffments.asp 

Description: This page provides a user the ability to edit list segments records in the Iist_segments 
database (lookup) table. A list segment is a grouping in IMT's proprietary administrative hierarchy. 




setuppanelpackage.asp 

Description: This page provides a user the ability to administer panel package records in the 
prod janeljackage database (lookup) table. A panel package is a grouping in IMT's proprietary 
administrative hierarchy. Administration is the adding, editing or deleting of records in a specific database 
table. 
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addpanelpackage.asp 

Description: This page provides a user the ability to add panel package records in the 
prodjpanel_package database (lookup) table. A panel package is a grouping in IMT's proprietary 
administrative hierarchy. 




editpanelpacka2e.asp 

Description: This page provides a user the ability to edit panel package records in the 
prod_panel_package database (lookup) table. A panel package is a grouping in IMTs proprietary 
administrative hierarchy. 
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setuppaneisubtvpe.asp 

Description: This page provides a user the ability to administer panel subtype records in the 
corp_panel_sub_type database (lookup) table. A panel subtype is a grouping in IMT's proprietary 
administrative hierarchy. Administration is the adding, editing or deleting of records in a specific database 
table. 



<£) Panel Sub Type - Microsoft Internet Expioier 




P-mmI Sub Typ« 

Another fi«id utmd to furth«r 

d«ftn« • **t of r*tat«d 

P*n«(* (If n««*»*-«rv)* (*•*- 

sw««0*Uk«s. n«*st»nd, 

tnsarts)* 



addpanelsubtvpe.asp 

Description: This page provides a user the ability to add panel subtype records in the 
corp_panel_sub Jype database (lookup) table. A panel subtype is a grouping in IMT's proprietary 
administrative hierarchy. 
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editpaneisubtvpe.asp 

Description: This page provides a user the ability to edit panel subtype records in the 
corp_panel_sub_type database (lookup) table. A panel subtype is a grouping in IMT's proprietary 
administrative hierarchy. 




setuppaneitesttvpe.asp 

Description: This page provides a user the ability to administer panel test type records in the 
corp_panel_test_type database (lookup) table. A panel test type is a grouping in IMT's proprietary 
administrative hierarchy. Administration is the adding, editing or deleting of records in a specific database 
table. 
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addpaneltesttvpe.asp 

Description: This page provides a user the ability to add panel test type records in the 
corp_panelJestJype database (lookup) table. A panel test type is a grouping in IMTs proprietary 
administrative hierarchy. 




editpaneltesttvpe.asp 

Description: This page provides a user the ability to edit panel test type records in the 

corp _paneljestjype database (lookup) table. A panel test type is a grouping in IMT's proprietary 

administrative hierarchy. 




setuppaneltvpe.asp 

Description: This page provides a user the ability to administer panel type records in the corpjpaneljype 
database (lookup) table. A panel type is a grouping in MT's proprietary adniinistrative hierarchy. 
Administration is the adding, editing or deleting of records in a specific database table. 
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addpaneltvpe.asp 

Description: This page provides a user the ability to add panel type records in the corp_panel_type 
database (lookup) table. A panel type is a grouping in IMT's proprietary administrative hierarchy. 
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editpaneitvpe.asp 

Description: This page provides a user the ability to edit panel type records in the corp_panel_type 
database (lookup) table. A panel type is a grouping in IMT's proprietary administrative hierarchy. 




setuprsetasp 

Description: This page provides a user the ability to administer revenue set records in the revenue_sets 
database (lookup) table. Administration is the adding, editing or deleting of records in a specific database 
table. 



addrset.asp 

Description: This page provides a user the ability to add revenue set records in the revenue_sets database 
(lookup) table. 
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editrset.asp 

Description: This page provides a user the ability to edit revenue set records in the revenue_sets database 
(lookup) table. 
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setupsourcename.asp 

Description; This page provides a user the ability to administer source description records in the 
source_descriptions database (lookup) table. A source description is a grouping in IMT's proprietary 
administrative hierarchy. Administration is the adding, editing or deleting of records in a specific database 
table. 
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addsourcedesc.asp 

Description: This page provides a user the ability to add source description records in the 
source_descriptions database (lookup) table. A source description is a grouping in IMT's proprietary 
administrative hierarchy. 




editsourcedesc.asp 

Description: This page provides a user the ability to edit source description records in the 
source_descriptions database (lookup) table. A source description is a grouping in IMPs proprietary 
administrative hierarchy. 




setuppriorsourcedesc.asp 

Description: This page provides a user the ability to administer source identifier description records in the 
prior_source_desc database (lookup) table. A source identifier description is a grouping in IMT's 
proprietary administrative hierarchy. Administration is the adding, editing or deleting of records in a 
specific database table. 
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addpriorsourcedesc.asp 

Description; This page provides a user the ability to add source identifier description records in the 
priorsourcedesc database (lookup) table, A source identifier description is a grouping in IMT's 
proprietary administrative hierarchy. 
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editpriorsourcedesc.asp 

Description: This page provides a user the ability to edit source identifier description records in the 
prior_source_desc database (lookup) table. A source identifier description is a grouping in MT's 
proprietary administrative hierarchy. 




allsetuptabs.asp 

Description: This page provides a user the ability to choose a lookup table to administer. Administration is 
the adding, editing or deleting of records in a specific database table. 
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welcome.asp 

Description: This page provides a user welcome message and offers an option to choose either 
administrative functions or reporting functions. 
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lo gin.asp 

Description: This page provides a user the ability to choose between creating a new report or selecing a 
saved report by selecting a record from the reportdefs database table. 



choosecatasp 

Description: This page provides a user the ability to choose a product(s) when creating a new report. This is 
the first selection in a series of selection required to create a new report. 
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choosecat2.asp 

Description: This page provides a user the ability to choose a report category when crearting a new report. 
A report category is a grouping of specific reports (styles). Report categories and reports are stored in the 
reportcat database table. 




chooserpt.asp 

Description: This page provides a user the ability to choose a specific report (style) when creating a new 
report. A report (style) is a pre-defined view of database information. 
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reporta»asp 

Description: This page provides a user the ability pass a text string to the report to serve as a report name. 
A report name appears in the header of a new report and is stored in the report_defs table once a report is 
saved. 
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reportb.asp 

Description: This page provides a user the ability to pass source selections to a report. A source is a 
grouping in IMT's proprietary database hierarchy. 
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reportc.asp 

Description: This page provides a user the ability to pass campaign type selections to a report. A 
campaign type is a grouping in MT's proprietary database hierarchy. 



'3 IMT Network - Microsoft interne* Explorer 



hItp:/Asiww irotnetworic com/1 ndexfleport. htm 




reportd.asp 

Description: This page provides a user the ability to pass campaign selections to a report. A campaign is a 
grouping in IMT's proprietary database hierarchy. 




reporte.asp 

Description: This page provides a user the ability to pass panel type selections to a report. A panel type is 
a grouping in EMT's proprietary database hierarchy. 
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reportf.asp 

Description: This page provides a user the ability to pass panel test type selections to a report. A panel 
test type is a grouping in IMT's proprietary database hierarchy. 




reportg.asp 

Description: This page provides a user the ability to pass panel selections to a report. A panel is a grouping 
in IMTs proprietary database hierarchy. 
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saverpt.asp 

Description: This page provides a user the ability to save a set of report selections by adding a record to the 
report_defs table. The reportdefs table stores information about division, group, product, report group, 
report, report name, report location and report selections. 
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choosesaved.asp 

Description: This page provides a user the ability to locate a saved report from the reportdefs table by 
filtering selections by division and group. Both division and group are groupings in IMT's proprietary 
database hierarchy 
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choosesavedb.asp 

Description: This page provides a user the ability to locate a saved report from the reportdefs table by 
filtering selections by product. A product is a grouping in IMT's proprietary database hierarchy 
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choosesavedc.asp 

Description: This page provides a user the ability to locate a saved report from the report_defs table by 
filtering selections by report group. A report group is a grouping of saved reports. 




choosesavedd.asp 

Description: This page provides a user the ability to locate and execute a saved report from the report_defs 
table by filtering selections by report name. A report name is the unique identifer of a record in the 
report_defs table. 
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IMT Subscription Marketing Reporting System 



DATABASE TABLES 

(in alpha order) 



• agent_defs 

• agents_summary 

• autosetup_campaign_def 

• autosetup_panel_def 

• autosetup_renewal_psdef 

• autosetup_scheme 

• avail_keys 

• campaigns 

• corp_info 

• corp_panel__sub_type 

• corpjanel_test_type 

• corp_panel_type 

• effort_sequence 

• est__max_effort 

• expense__sets 

• keys 

• list_cats 

• listjiames 

• Iist_segments 

• panels 

• prior_source_desc 

• prod_camp_status 

• prod_camp_type 

• prod__panel_package 

• rlOl 

• rl01_flow 

• rlOMopline 

• r401_flow 

• r40l_summary 

• rankings_base_in fo 

• revenue_set 

• rpt_cats 

• rpLdefs 

• source 

• source_descriptions 

• subcategory 

• src_channel 

• starts 

• summary_log 
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panel name 


varchar i 


5o; 


50 ! 


Y 


autosetup_panel_def 


jrecjd 


int i 


4^ _ 


10 


N 


'autosetup^renewaljDSdef 


productjd 


yarchar 


50 f " 


50 


N 


autosetup_renewal _psdef 


title 


varchar 


50 




N 


autosetup_renewal_psdef 


^src_cat_name 


varchar [ 


50 : 


50 


N 


autosetup_renewa!_psdef 


sourcejiame 


varchar 


50 


50 


N 
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autosetupj'enewaljDsdef 


sourcejndicator 


_ yarchar 


50 


50 


N 


autosetup — renewal jDSdef 


prior_source_indicator 


varchar 


OU 


CA 

OU 


N 


autosetup_renewai_psdef 


valid_from_date 


datetime 


8 


23 


N 


autosetupj"enewal_psdef 


valid to date 


datetime 


8 


23__ 


N _ 


autosetup__renewal_psdef 


rec id 


int 


4 


10 


N 


autosetup_scheme 


productjd 


yarchar 


50_ 


50 


N 


autosetup_scheme 


title 


_ varchar _ 


„50; _ 


50 


N 


;a utosetup_scheme 


grpjiame 


yarchar _ _ _ j 


50; 


JP. 


n ; 


autosetup_scheme 


src cat name 


varchar ! 


50 


50 j 


N > 


autosetup_scheme 


1 ... . 

src indicator 


varchar 


50 


50 


N 


autosetup_scheme 


^sourcejiame 


varchar 


50 


50 


N 


autosetup_scheme 


valid Jron\_date 


datetime 


8 


23 


N 


autosetup^scheme 


,validjo_date 


datetime 


o 
O 


Zo 


N 


autosetup_scheme 


setupjnask 


varchar 


50 


50 


Y 


autosetup_scheme 


e_setjiame 


varchar 


50 


50 


Y 


autosetup_scheme 


recjd 


int , 


4 


10 

... 


N 


ayaii_keys 


productjd 


numeric t 


5 


j& 


N ! 


availjceys 


^ulLpromoJcey 


yarchar ; 


25 


25 


N 


avail_keys 


mail_qty 


Jnumeric L 





12. 




avail_keys 


! dt valid to 


smalidatetime 


4 


16 


Y 


avaiHceys 


rsrvrd 


i , 

varchar 


25 


25 


Y 


availjceys 


Isourcejdentifier 


yarchar ; 


5 


5: _ 


Y 


availjceys 


positionl 


yarchar 


3 


Z 


Y 


avail_keys 


position^ 


char 




- - 1 ' 


Y 


;avail_keys 


position3 


char 


- 1 


i . 




availjceys 


position4 


char 




1 


Y 


availjceys 


position5 


char 


I"" 


1 


Y 


availjceys 


position6 


char 




1 


Y 


availjceys 


position"? 


char 




J 


Y 


ay^Mceys 


_„P2Sition8 


char 


_ 1 : _ - 


1. . 


Y 


ayaiMceys 


position9 


char 




i_ 


_ Y 


ayajl_keys 


pqsitionlO 


char _ 


s 


1 ; 


Y 


layailjceys 


recjd 


numeric 
varchar 


9' 


18 : 


N ; 


lavailjceys 


futfillmentjiouse 


_ _ _ 50: 

3: 


50 


_YJ 


campaigns 


src indicator 


char 


3 ! 


N 1 


^campaigns 


src cat name 


varchar 


30 


30 


N : 


:campaigns 


productjd 


numeric • 


^ 5. 


8 


N 


[campaigns 


campjype 


varchar 


50* 


50; 


Y \ 


'campaigns 


campjiarne 


varchar | 


25d 


250 


N ; 


campaigns 


camp^statusjiame 


varchar 


20 ! 


20 


Y_ : 


campaigns 


agt_code 


varchar 


10 


10 


Y i 


^campaigns 


i 

agtjtescr 


yarchar . 


50; 


50 


Y 


campaigns 


jcampjJateJr 


datetime 


a 


23 


Y ! 


[ 

;campaigns 


^camp_date_to 


datetime ;_ 


8i 


23 


Y 


campaigns 


;e_set_name 


varchar 


50 1 


50 


Y 1 


campaigns 


r set name 


varchar 


50' 


50 ; 


Y 


campaigns 


'grpjiame 


varchar 


50 


50 


Y 
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campaigns 

campaigns 

campaigns 

campaigns 

campaigns 

campaigns 

campaigns 

corpjnfo 

^orp jnfo__ 



gelc 
titie_name 
source_name 
recjd 

Newstand Sale 



corpjnfo 

corpjnfo 
corpjnfo 
conpjnfo 

corp_paneLsubjype 
corp_panel_subJype 
corp_panel_subJype 
corp_pane!JestJype 
corp_pa ne !_test_type 
corp_panelJestJype 

comj>anelJype 

corp^paneljype 
corpjDanelJype 
dtproperties 
dtproperties 

dtproperties 

dtproperties 

dtproperties 

dtproperties 

EFFORTSEQUENCE 

EFFORT.SEQUENCE 

EFF OR T_SEQUENCE 

EFFORT^SEQUENCE 

t Est_mjK_effort 

Est max effort 



Budgeted_voj 

Budgeted_g ross_pct 
campaign jxide 
productjd 

diy_name 

_grp_name_ 

tttlejname 
corp_info_descr 
recjd 
rec id 



yarchar 
varchar 
numeric 
numeric 
numeric 



panel_sub_type_name 
panel_subjypejiescr 
.recjd 

paneljestjypejiame 
paneljestjypejiescr 

recj d 

pane!Jtype_name 
panei_type_descr 
id 

qbjectid 

property 

value 
lvalue 
version 
Productjd 
Effort indicator 



effort _sequence 
effortjiesc 
Productjd 
soucejdentjfjer 
issue identifier 



Estjnax_e ffbrt 



Est_max_effort 

Estjnax_effort 

expense_sets 

expense_sets 

expense_sets 

expense_sets 

expense_sets 

expense_sets 

expense_sets 

e ^P6 r L se -Sets 

expense_sets 



prior_source jdentifier 
max_effort 
min_sumjriail_qty 
productjd 

e_setjiame 

print_cost 



pripLcpm_qpu 
print basis 
: merge_purge 
Jriejpe^cp^c^iu^ 
merge J>a sis 
Itr cost 




numeric 
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expense 

expense 

expense 

expense 

expense. 

expense 

expense 

expense, 

expense 

expense 

^expense 

expense 

expense 

expense 

expense 

expense 

expense 

expense, 

keys 

keys 

keys 

keys 

keys 

keys 

keys 

teys 



.sets 
.sets 
.sets 
.sets 
.sets 
.sets 
.sets 
.sets 
.sets 
.sets 
. sets 
.sets 
.sets 
.sets 
.sets 
.sets 
.sets 
sets 



ltr_cpm_cpu yarchar 
ltr_basis _ varchar 
postage_out__cost numeric 
.RS^S^oyL-S^iT-^Ry var char 

postage jn_cost numeric 
postage_jn_.cpm_.cpu yarchar 
postage_jn_basis yarchar 
pre rnium _cost numeric 



pre mium _.cpm_.cpu 

premium_basis 

badpay_cost 

badpay_cpm_cpu 

badpay_basis 

biliing_ cost 

billing_cpm_cpu 

biiling_basis 

subs_svc_costs 
subs_svc_.<^m__cpu 
subs svc basis 



10 
20 

9 
10 
20 

9 
10 
20 

9 



varchar 



keys 
keys 
keys 
keys 

keys 
keys 
keys 
keys 
keys 
keys 



varchar 
numeric 
yarchar 
yarchar 
numeric 
yarchar 
varchar 
numeric 
yarchar 
varchar 



J! 
20 

9 

10 

J20_ 
_9 
10 

?o: 

9 
10 

20 ; 



exp_fixed_costs 

exp_fixed_cpm_cpu 

exp_fixed_basis 

exp_other_costs 

^xp__other_<$rn_cpu 

exp_other_basis 

recjd 

full_promo_key 
dt_valid_from 

panel_name 

camp_name 



numenc 
yarchar 
varchar 
numeric 

^yarchar 

yarchar 
numeric 
yarchar 
smalldatetime 

yarchar 

varchar 



10 

20; 

9 

-1L 
20 

9 
25 
___4 
250 
250 



10 
20 
It 
10 
120 
1t 
10 
20 
11! 
10 
20. 
1f 
10 
.20. 

jiL 
1 °! 

20 ! 

It 

1,0 
20 ! 

I 0 ; 

11; 

10 
20 
18 

25; 
is 

250_ 
250 



!dt_vaiid_to 
srcjndicator 
Jsrc_.cat_.name 
producL'td 



smalldatetime 

_£har_ 

yarchar 
numeric 



_ 4 

3 

9 ! 



^_set_.name varchar 

Jistjd 
Ievel1_expense 
1ist__cost_.roHout_.cpm 
list_cost_actuaLcpm 
fixed _exp ense numeric 



numeric 
numeric 
numeric 
numeric 



50 : 
9 
9 
9 

9 ! 



Y 
Y 
Y 
Y 
Y 
Y 
Y 
Y 
Y 
Y 
Y 
Y 
Y 
Y 
Y 
Y 
Y 
Y 
Y 

X.. 
Y 

Y 

Y 

Y 

Y 

Y 

N 

N 

N 

N 

N 

16 N 
3! N 
30 _ N 

ia 

Y 



^subtotal_flag 
Ievel2_expense 
r_set_name 
Ieve l3_ex pense 



■level 1 _re venue 



ieveI2_revenue 



yarchar 
numeric 
varchar 
num eric 
num eric 
numeric 



J3 
9 

50; 

9 ; 



50 

10' 
12^ 
14 
J4 
18 

12| 

50 

Q„ 

12 



Y 
Y 
Y 
Y 

X. 
N 
Y 
Y 
Y 
Y 
Y 
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keys 


Ievel3_revenue 


numeric 


y 


10 

1Z 


v 

T 


keys 


p_key_^descr 


varchar 


OCA 


OCA 

ZOU 


V 


keys 


panei_type 


varchar 


50 


50 


Y 


keys_ 


P a Q?i-Subtype^ 


varchar 


50 


§0... 


Y 


keys 


test — type 


varchar 


OU 


UU 


v 
1 


keys 


panel_pffer 


varchar 


* 2U 


OA 
ZU 


Y 


keys 


paneLoffer__prjce 


money 


o 
0 




v 
Y 


keys 


paneljDkg 


varchar 


50 


50 


Y 


keys 


panel_premium 


varchar 


oa 


OA 
ZU 


Y 
T 


keys 


panel_date_start 


datetime 


8 


23 


Y 


keys 


panel_date_end 


datetime 


6 


23 


Y 


keys 


grp_name 


varchar 


50 


50 


Y 


keys 


trtle_name 


varchar 


OU 


OU 


v 


keys 


source name 


varchar 


250 * 


250 


Y 


keys 


camp_type 


varchar 




ou 


Y 
T 


keys 


camp_status — name 


varchar 


2U 


OA 

zu 


Y 
T 


keys 


agt_code 


varchar 


* a' 


1 A 
lU 


V 
Y 


keys 


agt_descr 


varchar 


50 


50 


Y 


keys 


camp_date_fr 


datetime 


8 


23 


Y 


keys 


camp_date_to 


datetime 


8 


23 


Y 


keys 


key_maii_qty 


'numeric 


_? 


18 


Y 


keys 


mail_qty_pverride 


decimal 


9 


18 


Y 


keys 


mergejDurge^qty 


numeric 


9 


18 


Y 


keys 


Hst_cost_basis 


varchar 


25 


zo 


Y 


keys 


list_cost_factor 


decimal 






Y 

T 


keys 


iist_cat_name 


varchar 


250 


250 


Y 


keys 


listen ame 


varchar 


ZOU 


0£A 


Y 
Y 


keys 


list_segment_name 


varchar 


250 


OCA 

ZOU 


Y 


keys 


recjd 


numeric 


: _A 


_ 1 ? 


N 


keys_ 


optiojiai_eJfqrtjd 


varchar 


50 


50 


Y 


keys 


Newstand Sale 


numeric 


9 


18 


Y 


keys 


newstand_salejTtarker 


char 

r 


^ 1 


1 


Y 


keys 


Budgeted_gross_pct 


Inumeric 


1 9 


18 


Y 


keys 


Budgeted_vol 


numeric 


y 


■1 n 
n o 


Y 

T 


keys 


date_assigned 


datetime 


8 


2^ 


Y 


Keys _ _ 


campaign_code 


varchar 


50 


50 


Y 


keys 


panel_code 


varchar 


I 50 


50 


Y 


keys 


<jbusername 


varchar 


. : 50; 


50 


Y 


keys 


orderjqty 


int 


_ A 


10 


Y 


keys 


dist_qty 


int 


' 4 


. 10 _ 


Y „ 


list cats 


product jd 


_ n ujrienc 


9 


18 


N 


list_cats 


list_cat_name 


varchar 


250. 


250 


N 


list_cats 


list_cat_descr 


varchar 


250 


250^ 


Y 


tist_cats 


recjd 


numeric 


: . 


18 


N 


listjQajnes 


prc^ctjd_ - 


numeric 


9 


__!!L 


?L_ 


list names 


ltst_name 


varchar 


250 


250 


N_ 


list_names 


list_name_description 


varchar 


250 


250 


Y 
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ubt names 


> rec_id 


numeric 


y 


1 o 


M 


iisi_5cgrnerus 


proauci_ja 


numeric 


n 

y 


1 o 


M 


iist^segments 


list_segment_name 


varchar 


250 


250 


N 


Hst_segments 


list_segment_description 


varchar 


250 


250_ 


Y 


tisi^seg rnenis 


rec id 


numeric 


Q 


TO 




jogs 


product^ id 


varchar 


z5U 


25U 


M 


logs 


login 


yarchar 


: 50 


50 


N 


Io 9 s 


log_timestamp 


[datetime 


8 


23 


N 


logs 


action 


Varchar 


50' 


50 


Y 


logs 


actio n_des criptio n 


varchar 


255 


255 


Y 


logs 


Taiied_iiag 


varchar 


10 


10 


Y 


logs 


trace^on 


varchar 


10 


10 


Y 


mods 




numeric 


y 


A O 

to 


N 


mods 


mod_app_name 


varchar 


50 


50 


N 


mods 


mod date 


smaildatetime 


A 

> ** 


ID 


T 


mods 


moa__aescnpiion 


varcnar 




_!OU 


N 


mods 


,mod_notes 


varchar 


OCA 

I iOO 


OCA 

250 


Y 


panels 


camp_name 


varchar 


250 


250 


N 


panels 


srcjndicator 


£har 


: 3; 


3 


N 


panels 


panel_name 


Varchar 


250 


250 


N 


panels 


src_cat_name 


varchar 


30 


30 


N 


panels 


productjd 


numeric 


5 


8 


N 


panels 


panel_ .type 


varchar 


en 
5U 


50 


Y 


paneis 


e_set_name 


varchar 


50 


50 


Y 




panel_subtype 


varchar 


en 


5U 


T 


panels 


r_set_name 


varchar 


50 


50 


Y 


panels 


tesMype 


varchar 


50 


50 


Y 


panels 


panel_offer 


yarchar 


20 


20 


Y 


panels 


panel_offerj)rice 


money 


8 


19 


Y 


panels 




varchar 


50 


50 


Y 


panels 


panel _premium 


varchar 


20 


20 


Y 


paneis 


pa ne l_d ate__sta rt 


datejfrne 


I 8 


23 


Y 


paneis 


pa ne l_ date_ e nd 


jdatetime 


j 8 


23 


Y 


panels 


grp_name 


'varchar 


; 50 


50 


Y 


paneis 


title name 


varchar 


50 


50 


Y 


paneis 


source name 


yarchar 


1 250 


250 


N 


panels 


camp_type 


varchar 

_ 


. 50^ 


50 


Y 


panels 


camp_status_name 


yarchar 


20 


20 


Y 


panels 


agt_code 


yarchar 




10 


Y 


panels _ 


agtjtescr 


varchar 


50 


50_ 


Y 


panels 


camp_date_.fr 


datetime 


8 


23 _ 


Y 


panels 


camp_date_to 


;datetime 

i 




23 


.Y 


panels 


recjd 


numeric 


9 


18 


N 


paneis 


newstand_sale_marker 


char 


1 


1 


Y 


paneis 


Newstand Sale 


numeric 


9 


18 


Y 


panels 


Budgeted_gross_pct 


numeric 


9 


1§ 


Y 


paneis 


Budgeted_voi 


numeric 


9' 


18 


Y 
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paneis 


campaig n_code 


varchar 


50 


50 


Y ■ 


panels 


panel_code 


varchar 


50 


50 


Y 


panels 


order_qty 


int 


4 


10 


Y 


panels 


dist_qty 


int 


- „.i 


10 


Y 


Prior^sou rce_desc 


productjd 


numeric 


5 


" 9 


N 


Prior_source_desc 


prior_sourcejdentifier 


varchar 


2 


2 


N , 


Priqr_source_desc 


prior_source_desc 


varchar 


20 


20 


Y : 


Prior_source_desc 


yalid_from_date 


datetime 


8' 


23 


.. Y ..| 


Prior source desc 


valid to date 


datetime 


8 


23 


Y : 


r^nor source uesc 


rec id 


numeric j 


Q 

9__ _ 


18 




r* nor_so u rcejjesc 


oil I in g_cu r_s rc_d es c 


varchar 


255 


255; 


Y 


r nof^s o u rcejjesc 


agentjsrc_desc 


varchar 


OU 


50 


Y 


Prio f^source^desc 


model^source 


varchar 


00 


50 


Y 


Prior source desc 


model source cat 


varchar 


50 


50 


Y i 


prod_camp_status 


rec id 


numeric 


9 


18 


N 


prod_camp_status 


productjd 


numeric 


9 


18 


N : 


p rod^cam p_statu s 


cam p_status_na m e 


varchar 


50^ 


5fj 


N : 


p rod_ca m p_statu s 


ca m p_status_descr 


varchar 


250' 


250 

- 1- 


Y : 


p rod_ca m p_ty pe 


recjd 


numeric 


9 


18 


N 


pjrod_cam p_type 


productjd 


numeric 


9 


18 


N 


prod_camp_type 


camp_type_name 


varchar 


50 


sd 


n ; 


p rod_ca m p_ty pe 


cam p_typ e_descr 


varchar 


250! 


250 


Y J 


prod_panelj3ackage 


productjd 


numeric 


9 


18 


N 


prod _panel_package 


packagejiame 


varchar 


50 


50 


N 


prod_panel ^package 


package_description 


varchar 


250 


250 


Y 


prod_panel_package 


recjd 


numeric 


9 


18 


N 


M01 


rctjecjium 


decimal 


9 


18 


N 


r101 


r101_reorg_date 


smalldatetime 


4 


16 


__N 


r101 


productjd 


numeric 


9 


18 


N ■ 


r101 


r101_key 


varchar 


25 


2 §_ 


N ! 


nut 


source identifier 


varchar 


50 


50 


Y 


r101 


issuejdentrfier 


varchar 


3 


3 


y 


rIOl 


prior^s^ourcejdentifier 


char . 


2 


2 




r101 


Effort identifier 


char 


i 


i: 


Y : 


noi 


splitjdentifier 


varchar i 


10 


10 


, — i 

Y 1 


r101 


mail_qty 


numeric 1 


9 


18 


y : 


M01 


select_date 


smalldatetime 


4 


16! 




M01 


key_descr 


varchar 


50 


50 


-T. ! 


r101 


subs_this_week 


^numeric 


9 


18 


Y 


HOI 

nui 


subs to date 


numeric 


9 


18 


Y 


M01 


gross_subs 


numeric 


9 _ 


18 


Y 


r101 


gross_subs_pct 


decimal 


5 


6 


Y 


r101 


; net_subs 


numeric 


9 


18 


Y 


r101 


net_subs_pct 


decimal 


5 


6 


Y 


r101 


tot net subs 


numeric 


9_ 


18 


Y : 


r101 


tot_net_subsjDCt 


decimal 




6 


Y 


r101 


pct_credit 


numeric 


9 


18 


Y 
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r101Jlow 
rl01_flow 
rIOIJlow 
r101 flow 



r1d1 
I l U I 


p ct_crea — re new 


decimal 


0 


rim 


crea_pay__arni 


decimal 


c 
0 


r101 


cred_pay_pct 


numeric 


9 


r101 


avg_net_trm 


decimal 


5 


ll\J 1 


avg__n et_trm_y a i ue 


decimal 


5 


r101 




IlUf I icIH-« 


Q 


r101 






Q 


r101 


subs_phone 


numeric 




ii01 


subs c card 


numeric 


9 


r1ft1 


inolali 1 Si 


int 


A 


rim 


in5iaii_ i 5i_ luiai 


int 

int 


4 


r101 




int 
nu 


A 
*t 


rim 


oUDo y lu pet I SI U m 


aecimai 


0 


rlOl 


sub_years_gross 


decimal 


i 9 


r1fl1 

1 I U I 


su u_yea rs^g r oss — io t^n ei 


aecimai 


Q 


r1fl1 


y ross^s u u_re ve n ue 


aecimai 


1 Q 

y 


nui 


net sub revenue 


decimal 


; y 


rim 

f IU l 


gross_sub_^copies 


decimal 


! y 


noi 


net_sub_copies 


decimal 


9 


no 1 


;cash_subs 


numeric 


9 


nui 


est_max_eff_/nai l__qty 


decimal 


1 9 


noi 


gross_cred^subs 


'numeric 


[ 9 


r1 01 


net_cred^subs 


decimal 


9 


noi 


Tulfillment_tttle_name 


varchar 


50 


r 1 01 


g rossJist_rental_qty 


decimal 


9 


rim 


n et_J is t_ re n ta!_qty 


decimal 


a 


r101 


packagejdentrfier 


char 


: . 1 . 


rim 


Key_aescr<£ 


varchar 


50 


r101 


donees_todate 


numeric 


9 


r101 


total orders 


numeric 


; 9 


rim 
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ASP PAGES 
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rVUUllblCal.abp 
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A Ul J 1 li 1 1 11U.C A. OO LI 
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A idnumf* o cr\ 
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A /A t-v-v l« /n nfn 

rvuiinnzd..<tbp 


/\aupanc lpacKage .asp 


rVui II III J a.abp 


OCLUppaTiCioUDiype.dop 


A /I m i ri /l <i 

/\UJU ulH a. aSp 


iiu up ane i suozype .asp 


Admin5a.asp 


Addpanelsubtype.asp 


Admin6a.asp 


Setuppaneltesttype.asp 


AuJwinKeysieruasp 


Editpaneltesttype.asp 


AamiiiKey srigni. asp 


Addpane ltesttype . as p 


Addso urce . asp 


Setuppaneltype.asp 


Editsource.asp 


Editpaneltype.asp 


Ms_editcampaign.asp 


Addpane ltype.asp 


Ms_editpanel.asp 


Setuprset.asp 


Ms_ed itkey. asp 


Editrset.asp 




Addrset.asp 


TOOL BAR 


Setupsourcename . asp 




Editsourcename.asp 


Drill.asp 


Addsourcename .asp 


urniDouncc.asp 


Setuppriorsrcdesc.asp 
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Editpriorsourcedesc.asp 


oearcnoouncc.asp 
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Avail. asp 




Allsetuptab.asp 
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Logm.asp 
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Choosecatasp 
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Reporta.asp 
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Edit_renewaljpsdef.asp 
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Edit_panei_def.asp 


Reportd.asp 
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Reporte.asp 
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Reportf.asp 


Addcampstatasp 
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Add autosetup.asp 

<%@ Language- VBScript %> 
<!-#include f]ie=^support/global_con$tants.asp" --> 
<!-#include file= M ../support/dbConnection.asp" -> 
<!-#indude ^lle=^./support/adoUtils.asp t, -> 
<!-#include file="../support/srcTab.asp'' -> 



<% 

if Request formCIsLoaded") = "true" then 

I_product_id - Session("PRODUCTJD M ) 
l_src_indicator = RequestformfP.SRC JND1CATOR") 
l_source_name - Request formCP_SOURCE_NAME") 
if l_source_name - "0 M then l_source_name - "Undefined" 

objRST.open "select src_cat_name from source where source_name - "* & t_source_name & strSQLOLEDB, 
adOpenStatic, adLockOptimistic 

if not objRST.eof then 1_src_catjiame = objRST(O) else i_src__cat_name - "Undefined" 
objRSTxlose 

Ijvalid Jrom = RequestfomCP^VALID^FROM") 
I_validJo = Request Form( M P_VALID_TO") 

l_setup_mask « RcquesLFormfPjSETUP JrfASK^ 
l_e_set_name = Request. Forrn( H P_E - SET_NAME") 
if I_e_set_name = M 0" then l_e_set_name = null 

objCMD.ActiveConnection = strSQLOLEDB 

objCMD.CommandText = "sp_add_autosetup_scheme* 

objCMD.CommandType = adCmdStoredProc 

objCMD.Parameters.Refresh 

objCMD.Parameters(l). Value = l_productJd 

objCMD.Parameters(2). Value = l_src_cat_namc 

objCMD.Parameters(3). Value = l_src_indicator 

objCMD.Parameters(4). Value = l_source_name 

objCMD.Parameters(5)- Value « t_yalid Jrom 

objCMD.Parameters(6). Value = t_valid_to 

objCMD.Parameters(7). Value = l_setup_mask 
objCMD.Parameters(8). Value = l_e_set_name 
Set TempNonSessionVar - objCMD.ExecuteO 
response.redirect ("tabautosetup.asp") 
end if 



%> 

<html> 
<head> 

<titIe>IMT Network</title> 
</head> 

<body bgcolor*"#99CCFF" vlink-'OOOOOO" iink="003366"> 



<form method= M posf action-" add_autosetup.asp M name=forml id-form I > 
<table width="640" border= H 0" ceNpadding-"2"> 
<tr valign-"top"> 

<td align="lcft" width="64(T colspan= M 3"ximg src-"../graphics/addl222.gif width="26" height-" 1 4"x/td> 
</tx> 

<tr valign-"top"> 
<td align-"left* width="640" colspan-*3"> 
<pxnobr> 

<img src-" Jgraphics/blankl222.gif width- M 20" height-" 1 6 M ximg src-\./graphics/blankl222.gir width="20 M 
height-" 16"ximg src= H Jgraphics/blank 1222.gif width-"2(T height-" 16"ximg src^7graphics/blankl222.giF width="20" 
height= H 16 M ximgsrc- H .ygraphics/blankl222.gir width="20" hei#it="l6 M ximgsrc-"../graphics/blankl222.gir width-"20" 
height-" i6 H ximg src- tt .. /graphics/blank 1222.gif width-"20" height=* , I6 M > 

<input type="image" src-".. /graphics/submit 1222.gif width-"54" height="16" border= M 0 M a!t= H Submit to Database"> 
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<imgsrc=Vgraphics/blankl222.gif width="20" height="16"ximg src=\./graphics/blank 1 222.gif width-"20" 
height= M 16 K ><font face- H Verdana, Arial, Helvetica, sans-serif size=M"xa hreMabautosetup.asp">Return 
to AutoSetup Parameters Menu</aX/fontX/nobr> </p> 
<tablewidth="265" border^O" ce!ispacing= M 3" ceIipadding= n 2 M > 
<tr> 

<td bgcolor= w 003366 tt height^S* width="166" aiign="center M > 
<div align=*CCTter"xfont face= M Verdana, Anal, Helvetica, sans-serif coIor= M #FFFFFF t1 xbxfont size="r>SOURCE 
NAME </fontx/bx/fontx/div> 
</td> 

<td bgcolor= H #99CCFF" height<20 H width="36(T align-left^ 
<div align- M Ieft rt xfont face="Verdana, Arial, Helvetica, sans-serif color="#FFFFFF' , xbxfontsize- ,, r 
coIor="#00000(T> 

<% 

strSQL = "select U_SOURCE_NAME FROM Source_descriptions w 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, "P_SOURCE_NAME",6, "SELECT SOURCE", 

objRST.close 

%> 

</fontx/bX/fontx/div> 

</td> 

</tr> 
<tr> 

<td bgcolor=*003366" height= M 25" width= M 4r align="center"> 
<div aIign- M center K xfont face-" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"><bxf 0 nt 
size*"l">SOURCE<br> 

INDICATOR </fontx/bx/font> 
</div> 

</td> 

<td bgcolor-^CCFF" height="2(T width= w 360 M align="iefr> 
<div align^ierTxfont face= H Verdana, Arial, Helvetica, sans-serif colors FFFFFF H ><bxfont size= H r 

coloc="#000000"> ^ rt „ . m£n 

<input type-TEXT" NAME^SRC .INDICATOR' id=0 max!ength="3(T size^ > 

</fontx/bx/font> 

</div> 
</td> 

</tr> 

<tr> 

<td bgcolor= ,, 003366 ,, height="25" width= w 4t M align="center"> 
<divaiign="center"xfcnt face-* Verdana, Arial, Helvetica, sans-serif color= M #FFFFFF*xbxfont size="l ">VALID 
FROM </fontx/bx/font> 

</div> 

</td> 

<td bgcolor=* , #99CCFF H height-"20 H width« M 360" align-" leff> 
<div align-"left M xfont face="Verdana, Arial, Helvetica, sans-serif color= H #FFFFFF"xbxfont size^T 
coJor="#000000"> 

<input type^TEXT" NAME-P_VALID_FROM ( id=0 maxlength= M 30 M size="15"> 
</fontx/bx/font> 

</div> 
</td> 

</tr> 

<tr> 

<td bgcolor="003366 rt height= tt 25 M width= M 41" align-'center^ 

<div align^center^xfont face="Verdana, Arial, Helvetica, sans-serif color= w #FFFFFF ,, xbxfont size=" P>VALtD TO 
</fontx/bx/font> 

</div> 

</td> 

<td bgcotor= tt #99CCFF" height="2(r width^ w 360 M align="left M > 
<div align= rt left" xfont face= tt Verdana, Arial, Helvetica, sans-serif color="#FFFFFF*xbxfont size=T 
color- M #00000CT> 

<input type^-TEXT" NAME='P_VALID_TO' id-0 maxlength= M 3(T size="15"> 
</font></bX/font> 

</div> 
</td> 

</tr> 
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<tr> 

<td bgcoior="003366" height= M 25" width= M 4r align="center"> 
<div align="center"xf 0 nt face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfcnt size="l >SETUP 
MASK </fontx/bx/font> 

</div> 

</td> 

<td bgco!or="#99CCFF* height= w 20 M width«"360" align= H left"> 
<div align^leffxfont face=" Verdana, Arial, Helvetica, sans-serif co!or="#FFFFFF , Xbxfontsize-"l" 

color="#000000"> ^ rt , u „„ . P1CK 

<input type=TEXT M NAME-T_SETUPJ4ASK* id-0 maxlength^O" size=" 1 5"> 

</fontx/bx/font> 

</div> 
</td> 

</tr> 

<tr> 

<td bgcolor- H 003366 N height-^'* width-"4 1 * align="center"> - r , vnrvfCC 

<div aiign="center"xf 0 nt fac^'Verdana, Arial, Helvetica, sans-serif color="#FFFFFF*xbxf 0 nt size=" 1" >EXPENSE 
SET NAME</fontx/bx/font> 

</div> 

</td> 

<td bgcolor="#99CCFF" height="2<T width= tt 360 M align="left H > 
<div align^left M xfont face="Verdana, Arial, Helvetica, sans-serif co!or="# FFFFFF*xbxfont size-T 
color=*#000000 M > 

<% 

strSQL = "select e_set_name FROM expense_sets where productjd = * & 

SessionfPRODUCT ID") & " order by e_set_name " , . 

objRST.open strSQU strSQLOLEDB, adOpenStatic, adLockOpUmisuc 
showQueryListBox objRST, "P_E_SET_NAME t \6, "SELECT EXPENSE 

SET", l_e_set__name 

objRST.close %> 
</fontx/bx/font> 

</div> 
</td> 

</tr> 

</table> 

<p> </p> 

</td> 
</tr> 
</table> 

<input type= H HIDDEN*' value= M true M name^IsLoaded^ 
</form> 
</body> 
</html> 
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add campaign def.asp 

<%@ Language=VBScript %> 
<!- #include file= M ../suppon/gIobal_constants.asp" -> 
<!- #include file^ysupport/dbConnection.asp" -> 
<!- #include file="../support/adoUtils.asp" -> 
<!- ^include fiie= ,, .7support/srcTab.asp ,, -> 



<% 

if Requestforrn("IsLoaded") = "true" then 

Ijproductjd - SessionCPRODUCTJO") 

I_campaign_code - requestform(Tj;AMPAJGN_CODE") 

l_campaign_description = requcst.formC , P_CAMPAIGN_DESCRIPT^ON ,, ) 

l_src_cat_name - RequestTorm("P_SRCj:AT_NAME") 

if not(l_s7c_cat_name > "0") then l_src_cat_name = 

l_campaign_dale = request.form( M P_CAMPAIGN_DATE'') 

if not(l_campaign_date > H ") then I_campaign_date = null 

i_paneI_scheme'-Request.FormCP_PANEL_SCHEME M ) 

if not(l_pand_scheme > "0") then l_panet_scheme = " n 

objCMD.ActiveConnection - strSQLOLEDB 
objCMD.CommandText = w sp_add_campaign_der 
objCMD.CommandType = adCmdStoredProc 
objCMD. Parameters.Refresh 
objCMD.Parameters(l). Value = l_product_id 
objCMD.Parameters(2).Value - l_campaign_code 
objCMD.Parameters(3).Value - I_campaign_description 
objCMD.Parameters(4). Value - l_src_cat_name 
objCMD.Parameters(5). Value = l_campaign_date 

objCMD.Parameters(6). Value - l_panel_scheme 

Set TempNonSessionVar - objCMD.ExecuteO 
response.redirect ("tabautosetup.asp") 
end if 



%> 

<html> 
<head> 

<title>lMT Network</titIe> 
</head> 

<body bgcolor="#99CCFF M vlink="000000" link= H 003366 ,, > 



<form method="post" action-"add_campaign_def.asp" name=forml id=forml> 
<table width="640 M border="0 H celipadding="2 M > 
<tr valign="top H > 

<td align-'left" width="640 M colspan-"3 M xirng src=".ygraphics/add 1222.gif width="26 M height-" 1 4"x/td> 

<ivo 

<tr valign-"top*> 

<td align="lefT width="640 M colspan="3"> 
<pxnobr> 

<img src-VgraphicsMankl222.gif' width-"20" height-" 16"ximg src=". ./graphics/blank 122Zgif width="2<r 
height** 1 6 H ximgsrc= M ../graphics/biankl222.gir width-"20" height="16 M ximgsrc=r7graphics/blank 1222.gif width-^O 1 
height-" 16 n ximg src^igraphics/blankl 222.gif* width= H 20" height="16"ximg src=r7graphics/blankl222.gir width="20' 
height-" 16"ximg src= H .7graphics/blank 1222.gif width-"20 M height-"16 M > 

<inputtype="image" src-".ygraphics/submitl222.gir width«"54" height="16 M border- H (T alt-"Submit to Database^ 
<imgsrc= M .ygraphics/blankl222.gif width- M 2(T height-" 16"ximgsrc=". ./graphics/blank 1 222.gif* width="20" 
height-" 16*xfont face= M Verdana, Anal, Helvetica, sans-serif 1 size="-4 H x a href= M tabautosetup.asp">Return 
to AutoSetup Parameters Menu</ax/fontx/nobr> </p> 

<table width="265 M border- M 0" cellspacing-'^" cellpadding-^^ 
<tr> 

<td bgcolor-"003366" height="25* width- H l66" align= M center"> 
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<div aiign="centef xfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont size=" 1 *>CAMPAIGN 
CODE </fontX/bx/font></div> 
</td> 

<td bgcolor= H #99CCFF M height="20 H width= M 360 n aiign="ieft"> 

<div align="lcft"><font face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont size="I" 

color="#000000"> , t _ . nrn 

<input type="TEXT" NAME-P_CAMPAIGN_CODE' id=0 maxlength="30" size= H 6"> 

</fontX/bx/fontx/div> 

</td> 

</tr> 



<tr> 

<td bgcolor-'Otmee* heights" width= M 166" align="center*> 

<div align=*center"xfont face=" Verdana, Ariai, Helvetica, sans-serif color-"#FFFFFF"xbxf 0 nt size="l "CAMPAIGN 
DESCRIPTION </fontx/bx/fontx/div> 
</td> 

<td bgcolor="#99CCFF" height="20" width="360" align«"left"> 
<div align="left"xfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF M xbxfontsize="r 
coior="#000000 M > 

<inputtype="TEXT" NAME^P_CAMPAIGN_DESCRIPnON' id=0 maxlength="50" 

stze="50"> 

</fontx/bx/fontx/div> 

</td> 

</tr> 



<tr> 

<td bgcolor="003366" height=*25" width=*4r align="center"> 

<div align="center"xfcnt face="Verdana, Arial, Helvetica, sans-serif color="# FFFFFF"xbxfont 
size-" T>SOURCE<br> 

CATEGORY </fontx/bx/font> 
</div> 

</td> 

• <td bgcolor="#99CCFF" height="20" width= M 360" aiign= M left*> 
<div align="lerf xfont face="Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxf 0 nt size="r 
color="#000000"> 

<% strSQL - "select distinct src_cat_name from source where product_id - " & 
Session("PRODUCTJD") & " order by src_cat_name" 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, "P_SRC_CATJNAME\6, "SELECT SOURCE 

CATEGORY", l_src_cat_name 

objRSTxiose 

'<inputtype=TEXT" NAME-P_SRC_IDENTIFIER' id=0 maxIength^SO" 

size="6 w > 

%> 

</fontx/bx/font> 

</div> 
</td> 

</tr> 



<tr> 

<td bgcolor-"003366" heightr="25" width="4T align="center"> 
<div align="center"xfont face= M Verdana, Ariai, Helvetica, sans-serif co!or= H #FFFFFF"xbxfont size^" 1 ">CAMP AIGN 
DATE </fontx/bx/font> 

</div> 

</td> 

<td bgcoIor="#99CCFF" height="20" width-"360" align="teft"> 
<div align="left"xfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont size^T 
color=*#000000"> 

<input type=*TEXT" NAME-P_CAMPAIGN_DATE* id=0 maxlength="30" size="6"> 
</fontx^x/font> 

</div> 
</td> 

</tr> 



<tr> 

<td bgcolor="003366 M height="25" width="41 H aiign="center"> 

<div align="center M xfont face="Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont size=" 1 ">PANEL 
SCHEME </fontx/bx/font> 
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</div> 

</td> 

<td bgcolor="#99CCFF" height="2CT width="360" align="left"> 
<div align="Ieft"xfont face="Verdana, Arial, Helvetica, sans-serif color ==M #FFFFFF ,l xbxfont size—" I * 
colon="#00000<r> 

<% strSQL = "select distinct panei_scheme from autosetup_paneI_def where product_id 
= " & SessionfPRODUCTJD") & M order by panel_scheme" 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, "P_PANEL_SCHEME",6, "SELECT PANEL 

SCHEME", i_panel_scheme 

objRST.close 

■<input type= M TEXT NAME-P_SRC_IDENTIFIER* id=0 maxlength=**30" 

%> 

</fontx/bx/font> 

</div> 
</td> 

</tr> 
</tabie> 

<input type=" HIDDEN" value^true" name="IsLoaded"> 
</form> 
</body> 
</html> 
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add panel def.asp 

<%@ Language=VBScript%> 
<!- # include fae=^./support/gIobai_constants.asp , ' -> 
<1- # include file=".isupport/dbConnection.asp' 1 -> 
<!-# include file=\isupport/adoUti]s,asp" -> 
<!-#include fiie=".7support/srcTab.asp M -> 



<% 

if Request form(* , lsLoaded w ) = "true" then 

l_productjd - SessionC , PRODUCTJD M ) 
I _panel_scheme = requestform( ,, P_PANEL_SCHEME w ) 
1 _panel_codes = requesLformfP_PANEL_CODES M ) 
l_panet_name - Request. form("P_PANEL_NAME M ) 

objCMDActiveConnection « strSQLOLEDB 
objCMD.CommandText - "sp_add_panel_der 
objCMD.CommandType = adCmdStoredProc 
objCMD.Pararneters.Refresh 
objCMD.Parameters(l). Value = l_product_id 
objCMD.Parameters(2).Value = !_panet_scheme 
objCMD.Parameters(3). Value - l_panel_codes 
objCMD.Parameters(4). Value = l_panel_name 

Set TempNonSessionVar - objCMD.ExecuteO 
response.redirectCtabautosetup.asp") 
end if 



%> 

<html> 
<head> 

<title>IMT Network</titie> 
</head> 

<body bgcolor="#99CCFF" vlinfc^OOOOOO" link="003366"> 



<form method^post" action=*add j)anel__def asp" name=forml id-form I > 
<tabte width="64<T border="0" cellpaddingr^^ 
<tr valign=' , top ,t > 

<td align^Ieft" width-^O* colspan= M 3"ximg src=\./graphics/add 1222.gif wdth="26 H height=*14 M x/td> 
</tr> 

<tr valign="top"> 

<td align^-left" width-"64(T colspan= M 3"> 

<fmg src^" ygraphics/blankl222.gir widuv= M 2<T heightF"16"ximg src^Vgraphtcs/blank 1222.gif width-"2<r 
heidit= w 16 ,, ximgsrc= M ../graphicsA)Iankl222.gir width="20" height= M l6 , 'ximgsrc- w .7graphics^tankl222.gir width-"20" 
height=" 16 M ximg src=".igraphicsA)lankl222.gir width-"20" height^'ximg src-Vgraphics/blankl 222.gif* width-"20" 
height= w 16 w ximgsrc- w .7graphics^lankl222.gir width^^O" height-"16 w > 

<input type-'image* src=" Jgraphics/submitl222.gif width="54 M height-Me^ bord«-"0" alt="Submit to Database^ 
<img src=".7graphics^lankl222.gir width= M 20 M height-" 16"ximg src-Vgraphics/blank 1 222.gif* width-"20 H 
height-" 16"xfont face="Verdana, Arial, Helvetica, sans-serif size="-4"xa hre£="tabautosetup.asp">Return 
to AutoSetup Parameters Menu</aX/fontx/nobr> </p> 
<table width-"48(r border="0" cellspactng-"3" ceIlpadding-"2"> 
<tr> 

<tdbgcolor="003366"height="25 w widm="I66 ,, align- ,, center' , > 
<div align="center"xfcnt face="Verdana, Arial, Helvetica, sans-serif coior-"#FFFFFF"xbxf 0 nt size- 1 >PANEL 
SCHEME </fontx/bx/fontx/div> 
</td> 

<td bgcolor="#99CCFF" height="20" width-"360 M align= N !efr> 
<div aIign= N left M xfont face="Verdana, Arial, Helvetica, sans-serir color="#FFFFFF"xbxfont size=" 1" 
color= w #000000"> 

<input type^TEXr NAME-P_PANEL_SCHEME* id-0 maxlength= M 5(r size=*50"> 
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</fontx/bx/font></div> 

</td> 

</tr> 
<tr> 

<td bgcolor=• , 003366 ,, height="25" widths" 1 66" align="center H > 

<div aiign="center"xfont face= H Verdana, Arial, Helvetica, sans-serif colors FFFFFFxbxfont size— M I W >PANEL 
CODES </fontx/bx/fontx/div> 
</td> 

<td bgcolor="#99CCFF" height="20 M width= M 360 w align="ieft w > 
<div align="left M xfont face^" Verdana, Ariai, Helvetica, sans-serif color= M #FFFFFF t, xbxfont size="r 
color= H #00000<r> 

<input type= M TEXT NAME- P_PANEL_CODES' id=0 maxlength= M 25(T size="lOO H > 
</fontx/bx/fontx/div> 

</td> 

</tr> 
<tr> 

<td bgcotor="003366' , height^S" width-" 1 66" align="center' , > 
<div align^cemerxfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF ,, xbxfont size^l^PANEL 
NAME </fontx/bx/font> 

</div> 

</td> 

<td bgcoIor= H #99CCFF" height^O" width^O" aHgn=*lefr> 
<div aiign^lefVxfont face="Verdana, Arial, Helvetica, sans-serif color="#FFFFFF'*xbxfont size-" 1 " 
coloi= M #000000"> 

<input type^TEXT* NAM E- P_P AN EL_N AM E* id-0 maxlength^SO" size="50"> 
</fontx/bx/font> 

</div> 
</td> 

</tr> 
</table> 

<input type^HlDDEN* vaIue= n tme M name- *IsLoaded n > 
</form> 
</body> 
</html> 
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add renewal psdef.asp 

<%@ Language^ VBScript %> 
<!- ^include fiie= M ../support/global_constants.asp tt -> 
<!- # include file= w „/support/dbConnection.asp M -> 
<!- # include file^V/support/adoUtils.asp" -> 
<!- # include file^'Vsupport/srcTab.asp" ~> 



<% 

if RequesLform("IsLoaded n ) = "true" then 

1 jjroductjd « Session(TRODUCrjD'*) 

l_src jndicator = Request. form( M P_S RC_IND IC ATOR M ) 

I j3rior_src_indicator = Requestform( w P_PRIOR_SRC - INDlCATOR M ) 

I_source_name = Requestform( , T_SOURCE_NAME' , ) 

objRST.open "select src_cat_name from source where sourcejiame - & l_source_name & *"", strSQLOLEDB, 
adOpenStatic, adLockOptimistic 

if not objRST.eof then i_src_cat_name = objRST(O) else l_src_cat_name = "Undefined" 
objRST.close 

l_valid_from = Request. forrn(* , P_VALIDJ : RO^^) 

i_vaiidjo = Request.Form(*P_VALID_TO w ) 

response.write(l_prior_src_indicator) 
objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_add_renewal_psder 
objCMD.CornmandType = adCmdStoredProc 
objCMD.Parameters. Refresh 
objCMD.Parameters(l). Value - l_product_id 
objCMD.Parameters(2). Value = l_src_cat_name 
objCMD.Parameters(3). Value - l_src_indicator 

objCMD.Parameters(4).VaJue = l_prior_src_indicator 
objCMD.Parameters(5). Value = l_source_name 
objCMD.Parameters(6). Value = i_vaJidJrom 
objCMD.Parameters(7). Value = l_valid_to 
Set TempNonSessionVar = objCMD.ExecuteO 
response.redirect ("tabautosetup.asp") 
end if 



%> 

<html> 
<head> 

<title>IMT Network</title> 
</head> 

<body bgcolor-WOOFF" viink^OOOOOO" link= w 003366 w > 



<form method^post" action="add_renewalJ^sdef.asp ,, name=formI id=forml> 
<table width=*640" border="0" cellpadding= M 2"> 
<tr valign= K top' , > 

<td aJign= M lefT width= rt 64(T coispan="3"ximg src="../graphics/add I222.gif width="26" height="i4 tt X/td> 
</tr> 

<tr vaiign= M top ,, > 

<td align^lefT widuV^O" colspan^^^ 
<pxnobr> 

<img src= M .7graphics/biankl222.gir width^O* 1 height-" 16"ximg src= M ../graphics/biank 1 222.gif width="20 N 
height= n 16"ximg src=^graphics/blankl222.gir width="20 M height="16 n ximgsrc= w .7graphics^lankl222.gir width="2<r 
hei^t- ,, l6 ,, ximgs^c-^ygraphics/blankI222.gif , width="2<r height= tt 16"ximg src^ygraphics/blankl 222.gif widths* 
height= , *I6' , ximg src=Vgraphios/btank 1222.gif* width- M 20 n height^ 16 M > 

<input type="image H src="../graphics/submitl 222.gif width= M 54" height= H 1 6 M border=*(r alt="Submit to Database^ 
<img src= w .7graphics/blankl222.gif ' width^O" height^ 16 M ximg src= M .7graphics/blank 1222.gif width= 1 *20 M 
height-" 16 M xf 0 nt face= M Verdana, Arial, Helvetica, sans-serir size^M^xa href^ M tabautosetup.asp">Return 
to AutoSetup Parameters Menu</aX/fontx/nobr> </p> 

<table width=*265" border= M 0 H cellspacing^" cellpaddinr^^ 
<tr> 
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<td bgcolor="0033"66" height="25" width="166* align^center^ 
<div aIign="center ,, xfont face-" Verdana, Arial, Helvetica, sans-serif co!or= H #FFFFFF"xbxfont s ize=" l">SOURCE 
NAME </fontx/bx/font></div> 
</td> 

<td bgcotor= rt #99CCFF" height-"20" width="360" aiign="lcft"> 
<div align="left"xfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF M xbxfont size="P 
color="#000000"> 

<% 

strSQL = "select U_SOURCE_NAME FROM Source_descriptions " 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, "P_SOURCE_NAME\6, "SELECT SOURCE", 

ON 

objRSTxIose 

%> 

</fontx/bx/fontx/div> 

</td> 

<Jxr> 
<tr> 

<td bgco!or="003366" height="25" width="41" align=*center"> 
<div aitgn="center n xfont face="Verdana, Arial, Helvetica, sans-serif color-"#FFFFFF"xbxf 0 nt 
size-** 1 ">SOURCE<br> 

INDICATOR </tbntx/bx/font> 
</div> 

</td> 

<td bgcolor="#99CCFF" height="2(T width="360" align="ierf> 
<div align= H left H xfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxf 0 nt size="l" 

color="#00000G"> . „ m 

<input type=TEXT w NAME=*P_SRC_INDICATOR* id=0 maxiength^30" size="6"> 

</fontx/bx/font> 

</div> 
</td> 

</tr> 

<tr> 

<td bgcolor="003366" height="25" width="4 1 " aHgn="center"> 
<div align="center~xf 0 nt face=" Verdana, Arial, Helvetica, sans-serif color= M #FFFFFF"xbxf 0 nt size-" 1">PRI0R 
SOURCE<br> 

INDICATOR </fontx/bx/font> 
</div> 

<rtd> 

<td bgcolor="#99CCFF" height="2(T width="360" align- H lefT> 
<div align="ieft"xfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxf 0 nt size="l" 
color="#000000"> 

<input type="TEXT" NAME='P_PRIOR_SRCJNDICATOR* id-0 maxlength="250" 

size="t00"> 

</fontx/bx/font> 

</div> 
<td> 

</tr> 

<tr> 

<td bgcolor= M 003366" height="25" width="4r align="center"> 

<div aiign="cemer J "xf 0 nt face= H Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxf 0 nt size="l">VALID 
FROM </fontx/bx/font> 

</div> 

<M> 

<td bgcolor="#99CCFF" height="20" width="360" align="left"> 
<div align="leffxfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxf 0 nt size=*l" 
color="#000000"> 

<input type= M TEXT H NAME-P_VALID_FROM' id-0 maxlength="30" sizc-"l5"> 
</fontx/bx/font> 

</div> 
</td> 

</tr> 

<tr> 

<td bgcolor="00336«" height="25 M widths 1" align="center"> 
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<div align= M center"xfont face=" Verdana, Arial, Helvetica, sans-serif coIor- n #FFFFFF M xbxfont size= M INVALID TO 
</fontx/b></font> 

</div> 

</td> 

<td bgcolor= H #99CCFF" hcight="20" width="360" align="left"> 
<div align^Ieffxfont face^Verdana, Ariai, Helvetica, sans-serif coior="#FFFFFF n xbxfont size=" I " 
coIor= B #00000CT> 

<inputtype= M TEXT* NAME='P_VALID_TO' id=0 maxlength="3<r size= H l5"> 
</fontx/bx/font> 

</div> 
</td> 

</tr> 

</tabte> 
<p> </p> 

</td> 
</tr> 
</table> 

<input type^" HIDDEN" value^true" name^IsLoaded*^ 
</form> 
</body> 
</html>. 
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addcamo.asp 

<%@ Language^VBScnpt %> 
<!- # include fite== l, ../support/global_constants.asp M -> 
<!-#include fiie= M .ysupport / dbConnection.asp'* -> 
<t-#include file^.ysupport/adoUtils.asp* ~> 
<!- #tnclude file=\./support/srcTab.asp H -> 

<% 

*on error resume next 

dim p_camp(4), p_camp_type(4), p_camp_status(4),p_camp_date_fr(4) 

dim p_camp_date_to(4), p_agt_code(4),p_agt_descr(4) 

dim p_e_set_narne(4), p_r_set_name(4), p_newstand_saie(4) 

dim p_budgetedjgross_pct(4), p_budgeted_vol(4) 

ADDED = FALSE 

errors = false 

* Response. Write "THis should work" 
for i = 0 to 4 

p_camp(i) - REQUEST("p_camp M & cstr(i) ) 
p_camp_type(i) « REQUE$Tfp_camp_type M & cstr(i) ) 
p_camp_status(i) = REQUEST( ,, p_camp_status ,, & cstr(i) ) 
p camp_date_fr(i) = R£QUEST( M p_campJate_fr H & cstr(i) ) 
p~camp_date_to(i) ~ REQUEST( N p_camp_date_to" & cstr(i) ) 
p~agt_code(i) « REQUESTfp_agt ^code" & cstr(i) ) 
p_agfdescr(i) = REQU EST( m p_agt_descr" & cstr(i) ) 
p_e set_name(i) = REQUESTCp_e_set_name H & cstr(i) ) 
p_r~set_name(i) = REQUESTCp_r_set_name tt & cstr(i) ) 
'p" newstand sale(i) = REQUEST("p_newstand_sale" & cstr(i) ) 
pJ>udgetedJgross_pct(i) - R£QUESTCp_budgeted_gross_pcr & cstr(i) ) 
p_budgeted_vol(i) = REQUESTfp_budgeted_vor & cstr(i) ) 

•Response. Write p_camp(i) & "<br>" & p_camp_$tatus(i) 
' Response. Write p_source(i) & p_src_ind(i) 

if p_camp(i) > * " then 
added ~ true 

' Response. Write p_camp(i) & "<br> B & p_camp_status(i) 
objCMD.ActiveConnection « strSQLOLEDB 
objCMD.CommandText = "sp_Add_Campaign" 
objCMD.CommandType - adCmdStoredProc 
objCMD.Parameters.Refresh 
objCMD.Parameters(l).Vaiue - p_camp(i) 
objCMD.Parameters(2). Value « VaiidatePickList (p_campjype(i)) 
objCMD.Parameters(3).Va!ue - VaiidatePickList (p_camp_status(i)) 
objCMD.Parameters(4). Value = validateDate (p_camp_date_fr(i) ) 
objCMD.Parameters(5). Value = null 
objCMD,Parameters(6). Value = null 
objCMD.Parameters(7). Value - null 

objCMD.Parameters(8). Value = VaiidatePickList (pjejsctjiame(i)) 

objCMD.Parameters(9). Value = VaiidatePickList (p_r_set_name(i) ) 
objCMD.Parameters(10).Value = nuirVaiidateNumber(p_newstand_sale(i)) 
objCMD.ParametersO 1). Value = VaiidateNumberCp.budgetedjgrossjjctCi)) 
objCMD.Parameters(12). Value = ValidateNumber(p_budgeted_vol(i)) 

objCMaParameters(I3).Value - Sess^on( ,, SOURCE_NAME ,, ) 
objCMD.Parameters(i4).Value « Session( H SRCJNDICATOR H ) 
objCMD.Parameters(15).Value = Session("PRODUCTJD M ) 
objCMD.Parameters(16). Value = SessionC , SRC_CAT_NAME'') 
objCMD.Parameters(17). Value = Session( N GRP_NAME") 
objCMD.Parameters(18).Value « Sessi<m("TITLE_NAME") 
Set TempNonSessionVar = objCMD.ExecuteO 

' If objCMD.Errors.Count > 0 Then 

Response. Write " DAMN YOU KEVIN <BR>* & objCMD.Errors.Count 

' Response. Write * errors " & objCMD.Errors.Count & "<BR>" 

' errStr « errStr & "Campaign <b> " & p_camp(i) & " not added <br>" 

' errors =true 

1 end if 
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end if 
next 

if added = true then 'and errors = false then 
Response.Redirect("admin5a.asp") 
END IF 
%> 

<html> 
<head> 

<tttle>addCamp .asp</title> 
</head> 

<body bgcolor^'mGCPF" vlink= ,, 000000 M iink= M 003366 H > 

<fonn method= M posf action="addCamp.asp" name-form 1 id-form 1> 
<table width="640" border= M 0* cellpadding= M 2 n > 

<% prevSelections (4) %> 
<% if errors - true then%> 
<tr valign="top M > 
<td> 

The following Errors Occured: <br> 
<% Response. Write errStr %> 
<br> 

<a hre£= M addCamp.asp H > Add Campaign Names</axbr> 

<a href^ w admin5a,asp M > Return to Main Campaign Screen</axbr> 



<% else %> 

"Ctrvalign^top^ 

<td align="Iefr width="64(r coIspan= rt 3 M ximgsrc= H .7graphics/add 1222.gif width="26*' height= 14 x/td> 
</tr> 

<tr valign="top"> 

<td align^left" width="640" colspan="3"> 
<pxnobr> 

<img src^ygraphics/biankl222.gir width="20" height-" 16"><img src=Vgraphics/blank 1222.gif width="20" 
height^! 6"xirng src-\Vgraphics/blankl222.gif width="20" height^ 1 6"ximg src^Vgraphics/blank 1222.gif width-"20" 
height-" !6"ximgsrc=\7graphicsA)lankt222.gir width«"20" hei^it--l6 M ximgsrc- H .7graphicsA)lankl222.gir width= M 2CT 
height 16"ximg src-Vgraphics/blank 1222.gif* width="20" height="16 w > 

<input type^'image'' src=\./graphics/submitl222.gir width="54" height="16" border-"*)" aIt="Submit to Database" id=imagel 
name-image 1> 

<img src="../graphics/blank!222.gir width="20" height-" 16"ximg src=Vgraphics/blank 1222.gif width="2(T 
heights" I6"xfont face=" Verdana, Arial, Helvetica, sans-serif size=M"xa href="admin5a,asp K >Return 
to Campaign</ax/fontx/nobr> </p> 
<tabte border="0" cellspacing="3" cellpaddingr"2"> 
<tr> 

<td bgcolor="003366" height^S" align="center"> 

<div align-"center"xfont face-" Verdana, Arial, Helvetica, sans-serir color="#FFFFFF"xbxfont size="P> 

CAMPAIGN NAME 

</fontx/bx/fontx/divx/td> 

<td bgcolor="003366" height="25" align="center"> 
<div align="center H > 

<font face^-Verdana, Arial, Helvetica, sans-serif colot-"#FFFFFF"> 
<bxfont size- w r> 

CAMPAIGN START DATE 
</fontx/bx/fontx/divx/td> 

<td bgcolor= M 003366" height= ^w 25 ,, align="center"> 
<div align= M center"> 

<font face= K Verdana, Arial, Helvetica, sans-serif color="#FFFFFF M > 
<bxfontsize=T> 

CAMPAIGN TYPE 
</fontx/bx/fontx/divx/td> 
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<td bgcolor="003366" height= M 25" aIign= M center M > 
<div aiign="center"> 

<font face=" Verdana, Anal, Helvetica, sans-serif color= M #FFFFFF , '> 
<bxfont size= M 1 "> 
CAMPAIGN STATUS 
</fontx/bx/fontx/divX/td> 



<% 1 <td bgcolor=*003366" height="25" align= M center"> 
' <div aiign="center"> 

<font face="Verdana, Anal, Helvetica, sans-serif color =s,, #FFFFFF"> 
<bxfontsize= i,, r> 

DATE TO 
</fontx/bx/fontx/divx/td> 

<td bgcolor- w 003366*' height="25 w width="4 1 w align="center"> 
<div align="center"> 

<font face=* Verdana, Ariai, Helvetica, sans-serif color="#FFFFFF"> 
<bxfontsize= M r> 
AGENT CODE 
</fontx/bx/fontx/divX/td> 

<td bgcolor="003366* height="25" width= w 4 1 " align^center^ 
<div align= sW center"> 

<font face="Verdana, Anal, Helvetica, sans-serif cotor="#FFFFFF"> 
' <bxfontsize =,,, l"> 
AGENT DESCR 
</fontx/bx/fontx/divX/td> %> 
<td bgcolor="003366* height= M 25" align="center H > 
<div align="center"> 

<font facc^" Verdana. Ariai, Helvetica, sans-serif color="#FFFFFF"> 
<bxfont sizc=*r> 
EXPENSE SET 
</fontx/bx/fontx/divX/td> 

<td bgcolor="003 3 66" height=*25" align= M center "> 
<div align 3 ="center w > 

<font face=" Verdana. Anal, Helvetica, sans-serif co1or="#FFFFFF"> 
<bxfontsize="l H > 
REVENUE SET 

</fontx/bx/fontx/divx/td> 
<%' <td bgcolor="003366" hcight«"25" a!ign="centcr*> 
' <div aiign= w center"> 

' <font facc="Verdana. Ariai, Helvetica, sans-serif color="#FFFFFF M > 
* <bxfontsizc="l"> 

NEWSSTAND SALE 
</fontx/bx/fontx/divx/td> 
%> 

<td bgcolor="003366" height="25" align="center ,, > 

<div aiign="center"> WTW ^. 

<font face="Verdana, Ariai, Helvetica, sans-serif color="#FFFFFF"> 

<bxfontsize^T> 

BUDGETED GROSS % 
</fontx/bx/fontx/divx/td> 

<td bgcolor= M G03366" height^" align= w center M > 

<div align=" ccnter w > 

<font face= H Verdana. Ariai, Helvetica, sans-serif color= M #FFFFFF n > 
<bxfont size= w r> 

BUGETED VOLUME 
</fontxybx/fontx/divx7td> 
</tr> 



<% for i = 0 to 4 %> 
<tr> 

<td height="15 M align=' t left H > 

<div altgn="Iefrxfont face=*Verdana, Ariai, Helvetica, sans-serif colors FFFFFF*xbxfont size= w r 
color s "#000000"> 
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<input type="texf name=*p_camp<%Response.write i %>' maxtength="30" size-"30"> 
</fontx/bx/fontx/div> 
</td> 

<td height 15" align="lcft"> 
<div align=**lefr> 

<input type="text" name- M p__camp_date_fr<% Response. Write i %>" size="12" maxlength- 
</div> 
</td> 

<td height="15"align="left"> 

<div align="IefTxfont face= rt Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 
<bxfontsize- H l H color="#000000"> 



<% strSQL - "select CAMP_TYPE_NAME from PRODCAMP_TYPE where " _ 

& " PRODUCTJD=" & Session("PRODUCT_ID") 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, "p_camp_type" & i ,4, "SELECT TYPE", -I 
objRST.close 



</fontx/bx/fontx/div> 
</td> 

<td height="l5"align="left"> . 
<div align-"Ieft"xfont face-" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxf 0 nt size- 1 

cotor="#000000"> 

<% strSQL = "select CAMP_STATUS_NAME from PROD_CAMP_STATUS where " _ 

& " PRODUCT JD=- & Session("PRODUCT_lD") 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, "p_camp_status" & i,4, "SELECT STATUS", -1 
objRST.close 

%> 

</fontx/bx/fontx/div> 
</td> 

<td heights" 15" a!ign-"lerV> . 
<div align="left"xf 0 nt face-" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxf 0 nt stze- 1 

color="#00000(T> 

<% strSQL = "select e_set_name from EXPENSE_SETS where " _ 

& " PRODUCTJD=" & Session("PRODUCT_ID") 
objRb 1 .open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, "P_E_SET_NAME" & i,4, "SELECT EXPENSE SETVl 
objRST.close %> 

</fontx/bx/fontx/div> 

</td> 

<td heights" 1 5" align= M left"> . 
<div align="leff xfont face="Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont size- i 

color="#000000"> 

<% strSQL = "select r set name from REVENUE_SETS where " _ 

& " PRODUCT_II>" & Session( M PRODUCT_lD") 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
ShowQueryListBox objRST, "p_r_SET_NAME" & i, 4, "SELECT REVENUE SET", -1 
objRST.close %> 

</fontxftx/fontx/div> 
</td> 

<%' <td height-" 15" align="left"> 
'<div align=*left"> 

' <input type="text" name="p_newstand_sale<% Response. Write i " size="12" maxlength-" 12"> 
'</div> 
'</td> 

%> 

<td height="15"align="left"> . 
<div align^left"xfont face= M Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont size= 1 
color= w #000000"> 
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<input type^text" name- p_budgeted_gross_pct<°/oResponse.write i %>' maxlength="30" size-T> 
</font></bx/fontx/div> 
</td> 

<td height^" 1 5" aiign= rt left ,, > 
<div aiign^IefTxfont face= M Verdana, Arial, Helvetica, sans-serir color="#FFFFFF"xbxfont size^'r 
color= w #00000(T> 

<input type^text" name='p_budgeted_vol<%Response.write i %>' maxlength="3(T size- M 8"> 
</fontx/bx/fontx/div> 
</td> 

</tr> 

<%next%> 

</tab!e> 
<p> </p> 
<%end if%> 
</td> 
</tr> 
</table> 
</form> 
</body> 
</html> 
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addcampstafcasp 

<%@ Language=VBScript %> 

<!- # include file=\Vsupport/global_constants.asp" --> 

<!-#include file=\Jsupport/dbConnection.asp" -> 

<!- # include file= w .7support/adoUtils.asp" -> 

<!- U include file="../support/srcTab.asp M -> 

<!~#include f^le :::s ^./suppo^t/setupTab.asp' , -> 

<% 

dim l_col_names(2) 
l_file = "addCampStatasp" 
l_col_names(0) - "CAMPAIGN STATUS" 
i_coI_names(l) - "DESCRIPTION" 
I_ColumnCount = 2 

l_sp_add = "sp_Add_Prod_CAMP_STATus" 
1 JTitle = " Campaign Status M 
l_setupTabLink = "setupCampStat.asp" 
1 showPrevSelection= true 



addAccept l_ColumnCount, l_setupTabLink, l_sp_add, Session("PRODUCTJD") 
addHeading l_file, ljile 

addMain IJTitte^sctupTabLin^l^showPrevSelection^L^Col^ames , l_ColumnCount 
addBottom %> 
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addcamptvpe.asp 

<%@ Language= VBScript %> 

<I~ ^include file=Vsupport/giobal_constants.asp" «> 

<\- #include flle=^7suppo^t/dt>Connection.asp ,, -> 

<!- ^include file=Vsupport/a<JoUtils.asp* -> 

<!- H include ftle^.Vsupport/srcTab.asp" -> 

<!- # include file-*' Jsupport/setupTab.asp" -> 

<% 

dim l_col_names(2) 

1 file = "addCampType.asp* 

fcol_names(0) = "CAMPAIGN TYPE" 

l_cot_names(l) = "DESCRIPTION" 

!_ColumnCount=2 

l_sp_add = "sp_Add_Prod_CAMP_Type rt 
l_Title = " Campaign Type " 
l_setupTabLink = "setupCampType.asp" 
I showPrevSelection= true 



addAccept ^CoiumnCount, l_setupTabLink, l_sp_add, Session^ PRODUCT JD") 
addHeading IJile, IJile 

addMain l^Titie^setupTabLinls^showPrevSelection.L^CoLnames , l_ColumnCount 
addBottom %> 
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addesetasp 



<%@ Language-VBScript %> 
<!- #inciude fiie="../support/gIobai_constants.asp ,t -> 
<!- # include file= M .Vsupport/dbConnection.asp" -> 
<!- # include file= M ,isupport/adoUtils.asp rt — > 
<!- # include file="../support/srcTab.asp" -> 
<!-# include file^Vsupport/JavaScripts.asp" -> 
<!- #include file= M „/support/PickListObj.asp" -> 
<% 



If RequestFormCIsLoaded") o then 

productjd - SessionfPRODUCTJD") 
e_set_name - Request. form("e_set_name H ) 
print__cost = Requestform( ,, print_cost N ) 
print_cpm_cpu = Requestform( H print_cpm_cpu") 
print_basis = Request form( M print_basis M ) 
merge_purge = Request form("merge_purge M ) 
merge_cpm_cpu = Requestform(**merge_cpm_cpu") 
* merge__basis = Requestform( H merge_basis M ) 
ltr_cost = Requestform( N itr_cost") 
ltr_cpm_cpu = RequestformOu^cprnj^pu'') 
ltr_basis = Requestform("ltr_basis N ) 
postage_out_cost ~ requestform(' , postage_out_cost N ) 
postage_out_cpm_cpu - Request.form( t, postage - out_cpm__cpu' , ) 
postage_out_basis = RequestforrnO'postage_outJ)asis") 
postage_in_cost ~ Request. form("postage Jn_cost") 
postage_in_cpm_cpu = Requestform("postage_in_cpm_cpu"} 
postage Jn_basis = RequestformCpostageJnJjasis'') 
premium_cost = Requestform("premium_cost") 
premium_cpm_cpu = Requestform( H premium_cpm_cpu") 
premium_basis = RequestfonnCpremiumJjasis") 
badpay_cost = RequestformCbadpay_cost H ) 
badpay_cpm_cpu = Request, fomOadpay^pn^cpu") 
badpay_basis = Requestform^badpayjDasis*) 
billing_cost = Request. formCbilling_cosf ) 
billing_cpm_cpu - Requestform( w biUing__cpm_cpu") 
billing_basis ~ Requestform( M biUing^basis ,, ) 
subs_svc_costs = RequestformCsubs^svcjttsts") 
subs_svc_cpm_cpu - Request form( w subs_svc_cpm__cpu") 
subs_svc_basis = Requestformf subs_svc_basis'*) 
exp_other_costs = Request. form( w exp_other - costs") 
exp_other_cpm_cpu - Request.form( M exp_other_ : .cpm_cpu M ) 
exp_other_basis = RequestformCexp^ther^basis*) 

objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_add_prod_e_set" 
objCMD.CommandType = adCmdStoredProc 
objCMD.Parameters.Refresh 

if not isnumeric(product_id) then 

rcsponse.redircct( H setupesetasp") 

else 

objCMD.Parameters{ ,, @product_id'*). Value = productjd 
end if 

objCMD.Paiwieters("@e_setjiame"). Value = e_set_name 
if not isnumeric(print_cost) then 

objCMD.ParametersC^prin^cosr). Value = null 

else 

objCMD.Parametersr@print_cost M ). Value = print_cost 

end if 

objCMD.ParametersC^prin^cpm^pu^.Value - print_cpm_cpu 
objCMD.Paramete^s(' , @p^int_basis , '). Value - print_basis 
if not isnumeric(merge__purge) then 

objCMD.Parameters("@merge_j>urge"). Value = null 

else 

objCMD.Parameters( ,, @merge_purge ,, ).Value = merge_purge 

end if 
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objCMD.PaimeteisC@n^ej^j;pu^. Value = merge_cpm_cpu 
objCMD.ParametersC@merge_basis M ). Value = merge_basis 
if not (ltr_cost > H ") then 

objCMD-ParametersC@ltr_cost H ).Value = null 

else 

objCMD.ParametersC'tgl^cost^.Value = ltr_cost 

end if 

objCMD.ParametersTQ^cpm^pu^.Value = ltr_cpm_cpu 
objCMD.Parametersr@ltr_basis").VaIue = ltr_basis 

if not (postage_out_cost > " ") then 

objCMDJ > aiameters(' , @postage_out_cost' , ).va]ue *= null 

else 

objCMD ParametersCQpostage^ut^cosO. Value = postage_out_cost 

end if 

objCMD.Parametersr@postage_out_cpm_cpu M ). Value « postage_out_cpm_cpu 
objCMD.Pa^ameteTsO , @postage_out_bas^s' , ). Value = postage_out_basis 
if not (postage_in_cost > " w ) then 

objCMD.Parameters(*@postageJn_cost") - null 

else 

objCMD -ParametersC^postageJn^cost^.Value - postage_in_cost 

end if 

objCMD.Parametersr@postage_in_cpm_cpu H ). Value = postage_in_cpm_cpu 
objCMD-Parameters^@postageJn_basis' , ). Value = postage_in_basis 
if not (premium_cost > then 

objCMD.Parameters("@premium_cost*) = null 

else 

objCMD ParametersC@premium_cost"). Value = premium_cost 

end if 

objCMD.Pa^ameters^@P^em^um_cpm_cpu ,, ). Value = premium_cpm_cpu 
objCMD.Paramete^s( 1, •@pfemium_basis ,, ). Value = premium_basts 
if not (badpay_cost > " ") then 

objCMD.Parameters("@badpay_cosr).value = null 

else 

objCMD.Parameters("(@badpay_cost M ). Value - badpay_cost 

end if 

objCMD.Parameters<"@badpay_cpm_cpu"). Value = badpay_cpm_cpu 
objCMD.Parametersr@badpay_basis"). Value = badpay_basis 
if not (bitling^cost > mM ) then 

objCMD.Parameters("@billing_cosr).VaIue = null 

else 

objCMD.ParametersC , @billing_cost' , ).VaIue =* billing_cost 

end if 

objC^^D.Pa^ameters< , '@biiIing_cpm_cpu , *). Value = biiling_cpm_cpu 
objCMD.Parameters<^@bili^ng_basis ,, ). Value = billing_basis 
if not (subs_svc_costs > " ") then 

objCMD.Pa^amete^s^@subs_svc_costs ,, ). value ~ null 

else 

objCMD.Paramete^s^@subs_svc_costs ,, ). Value - subs_svc_costs 

end if 

objCMD.Pa^ameteTsC@subs_svc - cpm_cpu ,, ). Value = subs_svc_cpm_cpu 
objC^^D.Pa^ameteIS( , "@subs_svc_basis' , ). Value = subs_svcbasis 
if not (exp_other_costs > " ") then 

l)bjCMD.PArameters(' ^ @exp - othe^_costs' , ) = null 

else 

objCMD.ParametersCtgexp^the^costs''). Value = exp_other_costs 

end if 

objCMD.ParametersrQexp^othe^cpm^cpu^.Value = exp_other_cpm_cpu 
objCMD.Pa^amete^s^@expIother_basis' , ). Value = exp_other_basis 

Set TempNonSessionVar = objCMD.ExecuteO 

Response.Redirect "setupeseLasp" 

end if 
%> 

<html> 
<head> 

<title>AddESet.asp</title> 
</head> 
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<script language= M JavaScript ,, > 
<!« 

function MM_swapImgRestore() { //v2.0 
if (document.MM_swapImgData != null) 
for (var i=0; i<{documentMM_swapimgData.length-l); i+=2) 
document.MM_swapIrngData[i].src = documcntMM_swapImgData[i+i]; 

} 

function MMjireloadlmagesO { //v2.0 
if (documentimages) { 

var imgFiles = MM_preloadImages.arguments; 

if (document.preIoadArray=nuU) documentpreloadArray = new ArrayO; 
var i = documentpreloadArray.length; 

with (document) for (var j=0; j<imgFiies.length; if (imgFi!csD].charAt(0)!«"#"){ 
preloadArray{i] ~ new Image; 
pretoadArray[i-H-].src - imgFiles[j3; 

}} 

) 

function MM_swaplmage() { //v2.0 

var i JK)/)bjSu%obj,swapArray=Tiew Array,o!dArray=document.MM_swapImgData; 
for (i=0; i < (MM_swapImage.argumentsJength-2); i+=3) { 
objStr = MM_sv7apImage.arguments[(navigator.appName =**Nctscape*)?i:i+l]; 
if ((objStr.indexO^'documentlayersD^O && documenUayers=nu!l) || 

(objStr.indexOfCdocument.alin =0 && documentall =null)) 
objStr = *dcK;ument , ^bjStr.subsuing(objStr.iastIndexOf(;\ , ),objStr.length); 
obj = eval(objStr); 
if(obj!=null){ 
swapArray[j-H-] = obj; 

swapArray|j"H-] = (oIdArray==null || oldArray[j-l]! == obj)?obj\src:oldArray[j]; 
obj .sic - MM_swapImage.arguments[i+2]; 
>} 

document MM_swaplmgData = swap Array; //used for restore 

} 

//-> 

</script> 

<body bgcolor="#99CCFF" vlink="000000" link="003366"> 



<form method="post" action^"addESetasp" id=forml name=forml> 
<input type-" HIDDEN" name^lsLoaded" value^"TRUE H > 

<TABLE BORDER=0 > 
<TR> 
<td> </td> 
<tr> 

<td cotspan=5> <font facc= H Verdana, Ariai, Helvetica, sans-serif size=M H > 
<a href="setupEset.asp"> </ax/font> 

<table width^lOO'/o" border="0" cellspacing^^ cellpadding="0"> 
<tr> 

<td width="18% H valign= M top"ximg src= M .7graphics/addl222.gir width="26" height-*" I4"x/td> 
<td width="82%" colspan="3"> 
<div align="right"> </div> 
<div align="right"x/div> 
</td> 
</tr> 
<tr> 

<td width=" 1 8%" va!ign="top"> </td> 
<td width =,, 82%" co!span="3"> 

<div align="right*> </div> 

<div align-"right"> 
<p> 

<input type="image" name=SUBMIT value= M SUBMIT" src="../graphics/submitl222.gir width- M 54" heights" 16' 

border= M 0" 

aIt="Submit to Database" i<Hmagel> 
</p> 
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<pxfont face= M Verdana, Arial, Helvetica, sans-serif* size=M H xa hre£= M setupEset.asp w >Return 
to Expense Set Setup Table </ax/fontx/p> 
</div> 
</td> 
</tr> 
</tabie> 
<px/p> 
</td> 
</tr> 
<tr> 

<td height="I<T width="14<T align^"center"> </td> 

<TD aiign= H lefT height* lCT> </td> 

<TDheight= M iO r, x/td> 

<td align= n RIGHT height^ 10"> </td> 
<Jtr> 
<tr> 

<td> 

Expense Set 

</td> 
<td> 

<input type=TEXT NAME= H e_set_name H vaiue=""> 

</td> 

</tr> 
<tr> 

<td> 

Print Cost 

</td> 
<td> 

<input type=*TEXT fl NAME="print cost" va]ue= H "> 

<Jtd> 
<td> 

<% showLOVListBox "CPM,CPU Vprint_cpmj;pu M ,2,* n t %> 

</td> 
<td> 

<input type= n HIDDEN" NAME-"printJ>asis" value="Mail Qty"> 
Mail Qty 

</td> 

</tr> 
<tr> 

<td> 

Merge Purge Cost 

</td> 
<td> 

<input type^'TEXT" NAME="merge_purge" value= M,, > 

</td> 
<td> 

<% showLOVListBox ,, CPM,CPU^ ,, merge_cpm_cp^^2,*^ %> 

</td> 
<td> 

<% showLOVListBox "Mail Qty,Merge Purge Qty \"merge_basis\2/\ %> 

</td> 

<tr> 

<td> 

Lettershop Cost 

</td> 
<td> 

<input type=TEXT NAME= n ltr_cost" value=* w > 

</td> 

<td> f 

<% showLOVListBox M CPM,CPU", w Itr_cpm_cpu ,, ^," w , " %> 

</td> 
<td> 

<input type^HIDDEN" NAME="ltr_basis" va!ue= M Mai! Qty H > 
Mail Qty 

<ftd> 

<tr> 

<td> 
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<tr> 



</tr> 
<tr> 



</tr> 
<tr> 



</tr> 
<tr> 



</td> 
<td> 

</td> 
<td> 

</td> 
<td> 



<7td> 

<td> 

</td> 
<td> 

</td> 
<td> 

</td> 
<td> 

</td> 

<td> 

</td> 
<td> 

</td> 
<td> 

</td> 
<td> 

</td> 

<td> 

</td> 
<td> 

</td> 
<td> 

</td> 
<td> 

</td> 

<td> 

</td> 
<td> 

</td> 
<td> 

</td> 
<td> 



Postage Out Cost 

<input type="TEXT NAME=*postage_out„cosr va!ue= M,, > 

<% showLOVListBox *CPM,CPUVpostage_out_cpm_cpu H ,2, M, \ %> 



<input type= w HIDDEN" NAME= M postage_out_basis" value- H Mait Qty"> 
Mail Qty 



Postage In Cost 

<input type— "TEXT" NAME="postage_in_cosf value= M "> 

<% showLOVListBox "CPM.CPU Ypostagejnj:pm_cpu'\2," H , %> 



<input type 3 ** HIDDEN" NAME="postage_in_basis" va!ue="Gross Subs M > 
Gross Subs 



Premium Cost 

<input type="TEXT NAME= M premium_cosr va!ue= s '" , > 

<% showLOVListBox TPM£PU Yprmiumj:pmjcpu , \2 > ,,, \ %> 

<% showLOVListBox "Gross Subs,Net Subs H , M premium_basis",2, MW , ""%> 

Bad Pay Cost . 

<input type= M TEXT NAME="badpay_cost H value-"^ 

<% showLOVListBox "CPM^CPU^-badpay^cpm^pu"^,"", %> 



<input type-"HIDDEN M NAME= w badpay_basis tt vaiue="Gross-Net Subs"> 
Gross-Net Subs 



Billing Cost 

<tnputtype= M TEXr NAME= M billing_cost H va!ue= Mtt > 

<% showLOVListBox TPM,CPUYbiliing_cpm_cpu , \2, ,,r \ %> 

<input type="HIDDEN' 1 NAME="bitling_basis" va!ue="Credit Subs"> 
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Credit Subs 

</td> 

</tr> 
<tr> 

<td> 

Sub Service Cost 

</td> 
<td> 

<input type^'TEXT NAME="subs_svc_costs" value=""> 

</td> 
<td> 

<% showLOVListBox *CPM,CPU", M subs_svc_cpm - cpu M ^ > ,, \ " H %> 

</td> 
<td> 

<input type=" HIDDEN" NAME="subs_svc_basis" va!ue="Net Subs"> 
Net Subs 

</td> 

<tr> 

<td> 

Exp Other Cost 

</td> 
<td> 

<input type= M TEXr NAME="exp_other_costs" value^"^ 

</td> 
<td> 

<% showLOVListBox TPM,CPUVexp_otherj;prn_cpu w t 2, ,,, \ "* %> 

</td> 
<td> 

<% showLOVListBox "Mail Qty.Merge Purge,Gross Subs,Net 

SubsYexpjrther.basisU."", Nw %> 
</td> 

</tr> 

</table> 
</td> 
</tr> 
</tabie> 
</form> 
</body> 
</html> 
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addlistcat.asp 

<%@ Language=VBScript %> 

<!- #include file^.ysupport/giobai^constants.asp" -> 

<!- ^include file- \./support/dbConnectton.asp* -> 

<]- ^include file=\7support/adoUtiis-asp" — > 

<!- #include flle=^Vsuppo^t/s^cTab.asp ,, -> 

<!~#include ftIe= M ../suppoit/setupTab.asp'' -> 

<% 

dim l_col_names(2) 
lJHc^ "addListCatasp* 
i_col_names(0) = "LIST CATEGORY" 
l_coI_names(l) = "DESCRIPTION" 
l_ColumnCount - 2 
l_sp_add = -sp_Add_Prod_List_Cat N 
IJTitlc = " List Category " 
J_setupTabLink = "setupListCat.asp" 
1 showPrevSelection= false 



addAcccpt !_ColumnCount, l_setupTabLink, l_sp_add, Session( M PRODUCTJD H ) 
addHeading l_filc, l_fUe 

addMain I^TitieJ^setupTabLink^^showPrevSetectio^^Co^names , I_ColumnCount 
addBottom %> 
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addlistname.asp 

<%@ Language=VBScript %> 

<!~#include fiie="Jsupport/global_constajits.asp w -> 

<!~ # include file^ysupport/dbConnection.asp" — > 

<!- # include fi^e= ; ^ysuppo^t/adoUtils.asp ,, -> 

<!— # include file^ysupport/srcTab.asp' 1 — > 

<!-# include fiIe=^support/setupTab.asp ,t -> 

<% 

dim l_col_names(2) 
l_file = "addListName.asp" 
l_col names(O) - "LIST NAME" 
l_col_names(I) - "DESCRIPTION" 
I_ColumnCount ~ 2 
i_sp_add = rt sp_Add_Prod_List_Name" 
l_Title = H List Name H 
l_setupTabLink = w setupLisiName.asp M 
I showPrevSeiection= false 



addAccept l_Co!umnCoum\ I_setupTabLink, I_sp_add, SesstonfPRODUCT JD") 
addHeading l_file, l_file 

addMain I_Title,l_setupTabLink,l_showPrevSelection,L_Co!_names , l_ColumnCount 
addBottom %> 
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addUstsegmentasp 

<%@ Language-VBScript %> 

<!— # include fiie= M ../supporl/gIoba!_constants.asp" -> 

<!- # include file=^support/dbConnection.asp* -> 

<l-#include file^.ysupport/adoUtils.asp" -> 

<[-#include file-'Vysupport/srcTab.asp" -> 

<!-#include fiIe= M ../support/setupTab.asp w ~> 

<% 

dim l_col_names(2) 
l_file = "addListSegmentasp" 
l_col_names(0) = "LIST SEGMENT'' 
Lcol_names(l) = "DESCRIPTION" 
I_ColumnCount - 2 

!_sp_add = "sp_Add_Prod__List_Segment" 
l_Title = M List Segment" 
l_setupTabLink ~ "setupListSegmentasp" 
1 showPrevSelection= false 



addAccept !_CoiumnCount, ljjetupTabLink, l_sp_add, Session("PRODUCTJD") 
addHeading l_filc, l_file 

addMain I^TiUe^^setupTabLink^^showPrevSelection^^Co^namcs , l_ColumnCount 
add Bottom %> 
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addpaneLasp 

<%@ Language=VBScript %> 

<!- # include fi!e= M .j f support/global_constants.asp M «> 

<!- # include fiIe=*\./support/dbConnection.asp" --> 

<!-#indude fiie= w Jsupport/adoUtils.asp" -> 

<!-# include file^.ysupport/srcTab.asp 1 ' -> 

<% 

i_debug = 0 

l_size - 6 

dim p__panel(6), p_panel_t\pe(6), p_panel_sub_type(6), p_test_type(6) 
dim p_panel_offer(6), p_panel_offer_price(6),p_panel _pkg(6) 
dim p_panel]j)remium(6) > p_panel_date_start(6), p_panel_date_end(6) 
dim p_e_set_name(6), p_r_set_name(6) 
dim p_newstand_sale_marker(6) 

'took out the redims in hopes of better performance, knock on wood 

'redim p_panel(l_size) 
'redim p_panei_type(l_stze) 
'redim pj3anel_sub_type(i_size) 
'redim p_test_type(l_size) 
Yedim p_panelj>fTer(Lsize) 
'redim pj)aneij)ffer_price(I_size) 
'redim p_panel jskgOjize) 
Yedim p_panel_premium(l_size) 
'redim p_panel_date_start(l_size) 
'redim p_panel_date_end(l_stze) 
'redim p_e_set_name(l_size) 
'redim p„r_set_name(l_size) 

dim l_camp_typc 

dim l_camp_starus_name 

dim l_agt_code 

dim i_agt_descr 

dim l_camp_date_fr 

dim !_camp_date_io 

strSQL = "select CAMPJTYPE, C AM P_ST ATUS_N AME, AGT_CODE, " _ 
& " AGTDESCR, CAMP_DATE_FR, CAMP_DATE_TO, " _ 
& "E_SET_NAME, R_SET_NAME " _ 
& " from CAMPAIGNS where " _ 
& " grp_name = m & Session("GRP NAME") & " ,n _ 
& ■ and PRODUCTJD=" & Session( ,, PRODUCTJD , ') & _ 
& " and src _cat_name - m & Session( H SRC_CAT_NAME w ) & _ 
& • and source_name = & SessionCSOURCE_NAME") & _ 
& m and camp_name » ,H & ScssionCCAMP .NAME") & iW 
'& " and srcjndicator - - & Session("SRCJNDICATOR") & " M _ 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
l_camp type = objRST.Fields( M CAMP_TYPE w ) 
J_camplstatus__name = objRST.Fields("CAMP_STATUS_NAME") 
l_agt_code = objRST.FieldsCAGT.CODE") 
l_agt_descr = objRST.Fields("AGT_DESCR") 
l_camp_date fr - objRST.Fields("CAMPJDATE_FR") 
l_camp date Jo = objRST JieldsC , CAMP_DATE_TO") 
l_e_setjiame - objRST.Fieids("EjSETJNAME'') 
Lr_set_name = objRST.Fields("R_SET_NAME") 

objRST.dose 

'Response. Write "THis should work but it doesn't because I suck" 
for i ™ 0 to I_size -1 

p_pane!(i) = REQUEST( M P_PANEL" & cstr(i) ) 

p _panel_type(i) = REQUESTCP_PANEL_TYPE M & cstr(i) ) 

P _panel_sub type(i) = REQUESTfP J>ANEL_SUB JTYPE" & cstr(i) ) 

P_tcst_type(i) = REQUEST("P_TEST_TYPE" & cstr(i) ) 

'p_paneLoffer(i) = REQUEST("P PANEL_OFFER H & cstr(i) ) 

'p_panel offer _price(i) = REQUESTrP_PANEL_OFFER_PRICE M & cstr(i) ) 

pjjanefjpkgO) = REQUEST("P_PANEL_PKG" & cstr(i) ) 
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•p _panei_premium(i) - R£QUEST("P_PANEL_PREMIUM M & cstr{i) ) 
p _panei_date_start(i) - R£QUEST( H P_PANEL_DATE_START' & cstr(i) ) 
p _panel_date_end(i) = REQUEST( 1, P_PANEL_DATEJEND" & cstr(i) ) 
p_e_set_name(i) = REQUEST( tt P_E_S ET_N AME* & cstr(i) ) 
p_r_set_name(i) = REQUEST("P_R_SET_NAME" & cstr(i) ) 

'p_newstand_saie_marker(i) = REQUESTCP_NEWSTAND_SALE_MARKER M & cstr(i) ) 

* Response. Write p_camp(i) & n <br> n & p_camp_status(i) 
'Response. Write p_panel(i)& "<br> N & p_panel_type(i) 
ifp_panel(i)>" "then 
1 Response. Write p_panel(i) & "<br> B & p_panel_type(i) & p_test_type(i) 
added -true . 

objCMD. ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_Add_Panel" 
objCMD.CommandType = adCmdStoredProc 
objCMD. Parameters.Refresh 
' user supplied values 

objCMD.Parameters(l). Value = p__panel(i) 
objCMD.Parameters(2). Value ~ ValidatePickList (p_panel_type(i) ) 
objCMD.Parameters(3). Value « ValidatePickList (pj)anet_sub_type(i) ) 
objCMD.Pararneters(4). Value * ValidatePickList (pjestjype(i)) 
objCMD.Parameters(5). Value = ValidatePickList (p_pane!_pkg(i)) 
objCMD.Parameters(6). Value = validateDate (p_panel_date_start(i)) 
objCMD.Parameters(7).Value ~ validateDate ( p_panel_date_end(i)) 
objCMD.Parameters(8).Value = ValidatePickList (p_e_set_name(i)) 
objCMD.Parameters(9). Value « ValidatePickList (p_r_set_name(i)) 
objCMD. Parameters( 10). Value - null' ValidatePickList (p_newstand_sale_marker(i)) 
' session supplied values 

objCMD.Parameters(l 1). Value - Session("PRODUCTJD") 
objCMD.Parameters(12). Value = SessionfGRP_NAME") 
objCMD.Parameters(13). Value ~ Session("TITLE_NAME M ) 
objCMD.Parameters( 14). Value « Session("SRC_CAT_NAME N ) 
objCMD.Parameters(l5).Vaiue « Session( w SOURCE_NAME w ) 
objCMD.Parameters( 16). Value = SessionCSRC_INDiCATOR N ) 
objCMD.Parameters(l7). Value - Scssion("CAMP_NAME") 

' query supplied values 
objCMD.Parameters(I8).Value = l_camp_type 
objCMD.Parameters(l9),Vaiue = l_camp_status_name 
objCMD. Parameters(20). Value = l_agt_code 
objCMD.Parameters(21). Value = l_agt_descr 
objCMD.Parameters(22). Value = l_camp_date_fr 
objCMD. Parameters(23). Value = l_camp_date_to 

Set TempNonSessionVar = objCMD.ExecuteO 

end if 
next 

if added = true then 
Response.Redirect "ADMIN6A.ASP* 
end if 

' added April 6, 2000. 

' convert Queries to LOVs to avoid running queries more than once 

dim PanelTypeLOV, PanelSubTypeLOV. PanelTestTypeLOV 
dim PackageLOV, ExpenseSetLOV, RevenueSetLOV 

PanelTypeLOV = QueryToLOVfselect PANEL_TYPE_NAME from CORP_PANEL_TYPE M ) 
PanelSubTypeLOV = QueryToLOV( w select PANEL_SUB_TYPE_NAME from CORP_PANEL_SUB_TYPE") 
PanelTestTypeLOV = QueryToLOV("select PANEL_TEST_TYPE_NAME from CORP_PANEL_TEST_TYPE" ) 
PackageLOV « QueryToLOVCsetect PACKAGE_NAME from PROD_PANEL_PACKAGE 

& "WHERE PRoduct id «" & S<ssion( M PRODUCTJD*) ) 
ExpenseSetLOV = QueiyToLOV("seiect e_set_name from EXPENSE_SETS where " _ 

& " PRODUCT_ID=" & SessionCPRODUCTJD rt ) ) 
RevenueSetLOV - QueryToLOVfseiect r_set_name from REVENUE_SETS where " _ 

& ■ PRODUCT JD= M & Sessi<m("PRODUCTJD") ) 
*we need the default revenue and expense sets from the campaign level 
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%> 

<htm!> 
<head> 

<title>AddPanel.asp</title> 
</head> 

<body bgcolor= M #99CCFF vlink="00000(T link=*003366 H > 
<form method- 'post" action^addPanel.asp" name=forml id=forml> 
<table width="64<T border^O" celtpadding= H 2"> 
<% 

if l_debug=l then 

Response.write "l_e_set_name " & l_e_set_name 
Response.Write "<BR>" 

Response.write "l_r__set_name " & l_r_set_name 
Response. Write "<BR>" 

Response. write "PanelTypeLOV * & PanelTypeLOV 
Response. Write "<BR>" 

Response.write "PanelSubTypeLOV " & PanelSubTypeLOV 
Response. Write "<BR>" 

Response. write "PanelTestTypeLOV " & PanelTestTypeLOV 
Response.Write *<BR>* 

Response.write "PackagcLOV M & PackageLOV 
Response.Write "<BR>" 

Response.write "ExpenseSetLOV " & ExpenseSetLOV 
Response. Write "<BR>" 

Response.write "RevenueSetLOV " & RevenueSetLOV 
Response. Write "<BR>" 
end if 
%> 

<% 

prevSelections (5) %> 
<%iferrors = true then%> 
<tr valign^top^ 
<td> 

The following Errors Occured: <br> 
<% Response.Write errStr %> 
<br> 

<a href="addCamp.asp"> Add Campaign Names</axbr> 

<a href="admin5a.asp"> Return to Main Campaign Screen</axbr> 



<%else 

dim l_marker vals 

i_marker_vals - "Y.N" 

%> 

<tr vaIign="top*> 

<td align^left" width=*640 M colspan= K 3"ximg src^7graphics/add 1222.gif width="26" height="14"x/td> 
</tr> 

<tr valign = "top"> 
<td align^teft" width="640" colspan= M 3 M > 
<pxnobr> 

<img src^7graphics/blankl222.gif width=*2<T heights" 16"ximg src= M .ygraphics/blank 1222.gif width»"20" 
height^" 16"ximg src=\ygxaphics/blank 1222.gif width="20" height*" 16"ximg src=^graphics/blank 1 222.gif width="2<T 
height^" 16 M ximg src=\ygraphics/blank!222.gif width="20" height^ltf-ximg src="../graphics/blank 1 222.gif widuV=*20 M 
height 16 M ximg src=Vgraphics/biankl222.gif width="20" height^ 16"> 

<input type*"imagc" src= M „/graphics/submiti 222.gif width="54 H height= H 16 H border= H (T alt="Submit to Database" id-imagel 
name=imagel> 

<img src=\./graphicsMankl222.gif width= H 20" height" 16"ximg src=".. /graphics/blank 1222.gif width="20" 
height="!6 ,, xfont face=" Verdana, Aria!, Helvetica, sans-serif size^M*^ 
<a href= n admin6a.asp' , > 
Return to Panel</ax/fontx/nobr> </p> 
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<table border^O" cellspacing^" cellpadding= t, 2"> 
<tr> 

<td bgcolo^= , '003366 1, height="25" align^center^ 

<div align="center"xfont face="Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont s j 2e =" 1 
PANEL NAME 

</fontx/bX/fontx/divx/td> 

<td bgcoIo^=*003366 ,, height^S" align^center^ 
<div aiign="center"> 

<font face^Verdana, Arial, Helvetica, sans-serif color= M #FFFFFF' , > 
<bxfontsize=T> 

PANEL START DATE 
</fontx/bx/fontx/divx/td> 

<td bgcolor= K 003366" height^S" ajign="center"> 
<div align="center w > 

<font face="Verdana, Arial, Helvetica, sans-serif color^FFFFFF^ 
<bxfontsize-="r> 

PANEL TYPE 
</fontx/bx/fontx/divx/td> 

<td bgcolor=' , 003366 ,, height^S" align="center w > 
<div align-"center"> 

<font face=" Verdana, Arial, Helvetica, sans-serif color^FFFFFF*^ 
<bxfont size^l^ 

PANEL SUBTYPE 
</fontx/bx/fontx/divx/td> 

<td bgcoior-"003366 M height^" aIign= M center M > 
<div align="ccnter n > 

<font face^Verdana, Arial, Helvetica, sans-serif colon^FFFFFF^ 
<bxfont size=T> 

PANEL TEST TYPE 
</fontx/bx/f 0 ntx/divx/td> 

<td bgcolor= H 003366* height= M 25" align="center M > 
<div align=*center"> 

<font face="Verdana, Arial, Helvetica, sans-serif color^FFFFFF^ 
<bxfontsize=T> 

PACKAGE 
</fontx/bxyfontx/divx/td> 

<td bgcolor= 1, 003366 M height- w 25" align="center M > 
<div align="center"> 

<font face=" Verdana, Arial, Helvetica, sans-serif colors FFFFFF*> 
<bxfont size="r> 

EXPENSE SET 
</fontx/bx/fontx/divx/td> 

<td bgcolor=' , 003366 w height^S" align^center^ 
<div align= w center ,, > 

<font face="Verdana, Arial, Helvetica, sans-serif coIor= i "#FFFFFF N > 
<bxfontsize=T> 
REVENUE SET 

</fontxybx/fontx/divx/td> 

<%' <td bgcolor= H 003366* height^S" aiign= N center H > 

*<div align^'center^ 

'<font face="Verdana, Arial, Helvetica, sans-serif color^tfFFFFFF*^ 

'<bxfont size^"!^ 

' NEWSSTAND MARKER 

* </fontx/bx/f 0 ntx/divx/td> 

'</tr> 

%> 



<% for i - 0 to l_size - 1 %> 
<tr> 
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<td height="l5" align^Ieft^ 

<div align-Meffxfont face-" Verdana, Arial, Helvetica, sans-serif colors FFFFFF"xbxfont size=T 
color="#000000"> 

<input type= H texf name=*PJ>ANEL<%Response. write i %>' maxlength="250 M size="3(T> 
</fontx/bx/font></div> 
</td> 

<td height="15"align="lefr> 
<divalign= M left M > 

<inputtype="texf name-T_PANEL_DATE_START<% Response. Write i %>" size^n* maxlength= n 12"> 
</div> 
</td> 

<td height="15 ,, align= ,, left n > 

<div align= w ieft w xfont face-" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF H > 
<bxfont size="P color="#000000"> 



<% 'strSQL = "select PANEL JTYPE_NAME from CORP_PANEL_TYPE" 

'objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showLOVListBox PanelTypeLOV, K P_PANEL_TYPE t ' & i ,4, "SELECT TYPE", -I 
'objRST.dose 

%> 



</font></bx/fontx/div> 
</td> 

<td height="i5"aiign="Ierr> 
<div aIign="Ieft"xfont face="Verdana, Arial, Helvetica, sans-serif color^"#FFFFFF"xbxf 0 nt size-T 
color="#000000"> 

<% 1 strSQL = "select PANEL_SUB TYPE_NAME from CORP_PANEL_SUB_TYPE rt 

~ 'objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showLOVListBox PanelSubTypeLOV, " P_P ANEL_S UB_TYPE" & i,4, "SELECT 

SUBTYPE", -I 

showQueryListBox objRST, "P_PANEL_SUB_TYPE" & i,4, "SELECT SUBTYPE", - 

I 

'objRST.dose 

%> 

</font></bx/fontx/div> 
</td> 

<td height="15"align="lerr> 

<div aiign="left"xfont face=" Verdana, Arial, Helvetica, sans-serif color= H #FFFFFF"xbxfont srze=T 
color="#00000(T> 

<% * strSQL - "select PANEL TEST_TYPE_NAME from CORP_PANEL_TEST_TYPE" 

' " objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

showLOVListBox PanelTestTypeLOV, "P_TEST_TYPE" & i,4, "SELECT TEST 

TYPE", -1 

'objRST.dose 

%> 

</fontX/bx/fontx/div> 
</td> 

<td height="15 w align="left"> 
<div align="left"> 

<% 'strSQL = "select PACKAGE_NAME from PROD_PANEL_PACKAGE WHERE PRoduct_id =" & 
SessionCPRODUCTJD") 

■objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showLOVListBox PackageLOV, "P_PANEL_PKG" & i,4, "SELECT PACKAGE", -1 
'objRST.dose 

%> 



</div> 
</td> 

<td height-" 1 5" align= w left rt > 
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<div align="lefTxfont face=" Verdana, Arial, Helvetica, sans-serif* coior="#FFFFFF"xbxf 0 nt size="T 
color="#000000"> 

<% 'strSQL - "select e_set_name from EXPENSE_SETS where " _ 

'& H PRODUCTJD^ & Session("PRODUCTJD") 

1 objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

showLOVListBox expenseSetLOV, "P_E_SET_NAME t1 & i,6, "SELECT EXPENSE 

SET\l_e_Set_rtame 

'objRST.close %> 

</fonP</bx/fontx/div> 

</td> 



<td height-" 15"aHgn="lefr> 
<div aIign= M left ,, xfont face= H Verdana, Arial, Helvetica, sans-serir colop="#FFFFFF"xbxfont size="r 
coior="#000000"> 

<%' strSQL - "select r_set_name from R£VENUE_SETS where " _ 

& " PRODUCT_ID=" & Session(*PRODUCT JD") 
'objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showLOVListBox RevenueSetLOV, "p_r_SET_NAME" & i,6, "SELECT REVENUE 

SET", l_r setjiame 

■objRST.close %> 

</fontx^x/fontx/div> 
</td> 

<% '<TD align= M left"> 

ShowLOVListBox l_marker_vals, "P_NEWSTAMD_SALE_MARKER" & i , 6, " — " t l_newstand_sale_marker 



</td> 

%> 

</tr> 

<%next%> 

</table> 
<p> </p> 
<%end if%> 
</td> 
</tr> 
</table> 
</form> 
</body> 
</html> 
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addpaneipackage.asp 

<%@ Language=VBScript %> 

<!- #indude flIe^^ysuppo^t/g]obaI_constants.asp ,, -> 

<!- #include file^Ysupport/dbConnection.asp" -> 

<!- #include ft^.Vsupport/adoUtils.asp' 1 -> 

<!- ^include file=\./support/srcTab.asp* -> 

<!- # include fite=^./suppo^t/setupTab.asp ,, -> 

<% 

dim i_col_names(2) 
I_fi!e - "addPanelPackage.asp" 
l_coi_names(0) - "PANEL PACKAGE" 
!_coI_names(l) = "DESCRIPTION" 
l_ColumnCount = 2 

l_sp_add = "sp_Add_Prod_panel_Package" 
l_Title = " Panel Package" 
l__setupTabLink = "setupPanelPackage.asp" 
l_showPrevSelection= false 
l_file = "addPanelPackage.asp" 



addAcceptl_ColumnCount, l_setupTabLink, I_sp_add, SEssion("PRODUCTJD") 
addHeading I — file, l_file 

addMain I_TiUeJ_setupTabUnk,l_showPrevSelection,LjCol_names , l_CotumnCount 

addBottom 

%> 
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addpaneisubtypcasp 

<%@ Language- VBScript %> 

<!- #include flle= w „/support/g!obal_constants.asp ,, -> 

<!- #include file="„/support/dbConnection.asp" -> 

<)- #include ftle=".ysupport/adoUtils.asp" -> 

<!- #include fiIe=".ysupport/srcTab.asp" -> 

<!- #include fiIe =, \ysupport/setupTab.asp M ~> 

<% 

dim l_col_names(2) 

ljile = "addPaneiSubType.asp" 

i_col names(O) = "PANEL SUB TYPE" 

Uofnames(i) = "DESCRIPTION" 

l_ColumnCount = 2 

l_sp_add = H sp_Add_Corp_Panel_Sub_Type M 
l_TitIe « " Panel Sub Type " 
l_setupTabLink - "setupPaneiSubTypcasp'* 
I showPrevSelection= false 



addAccept l_CoiumnCount, I_setupTabLink, (jspjadd, -1 
addHeading Mile, l_file 

addMain I_TitIeJ_setupTabLink,l_showPrevSe!ection,L_CoI_names , i_ColumnCount 
addBottom %> 
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add panel tes ttv pe.asp 

<%@ Language^ VBScript %> 

<!— #include fiIe=' , ../support/g!obai_constants.asp M -> 

<!- #include file^ysupport/dbConnection.asp' 1 -> 

<1- #include file= M .ysupport/adoUtils.asp N -> 

<!- #inciude file^ysupport/srcTab.asp" -> 

<!— ^include fUe= i '\ysupport/setupTab.asp M — > 

<% 

dim i_coI_names(2) 

l_file = "addPanelTestType.asp" 

1 col_names(0) = "PANEL TEST TYPE" 

f col_names(l) - "DESCRIPTION' 1 

l_ColumnCount ~ 2 

l_sp_add = *sp_Add_Corp_PaneI_Test_Type w 
l_Tit)e = n Panel TestType " 
!_setupTabLinlc - "setupPanelTestType.asp" 
\ showPrevSelection^ false 



addAccept l_ColumnCount, I_setupTabLink, t_sp_add, -1 
addHeading l_file, i_file 

addMain lJTitleJ^setupTabLinl^^showPrevSelection^Co^names , l_ColumnCount 
addBottom %> 
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addpaneltype.asp 



<%@ Language^VBScript %> 

<!- # include file^ysupport/global_constants.asp" -> 

<!- ^include ftle= Vsupport/dbConnection.asp" -> 

<!- ^include fiie=". ./support/adoUtils.asp" -> 

<!-#include file^ysupport/srcTakasp" -> 

<!-#include fiie="Jsupport/setupTab.asp" -> 

<% 

dim l_col_names(2) 
l_file - "addPanelType.asp" 
l_col_names(0) = "PANEL TYPE" 
l_col_names(l) = "DESCRIPTION" 
l_ColumnCount ~ 2 

l_sp_add = "sp_Add_Corp_Panel_Type" 
l_Titte = " Panel Type" 
l_setupTabLintc = "setupPanelType.asp" 
1 showPrevSelection- false 



addAccept l^ColumnCount, i_setupTabLink, I_sp_add, -I 
addHeading l_file, l_file 

addMain I_TitleJ_setupTabLink ( l_showPrevSelection,L_CoI_names , t_ColumnCount 
addBottom %> 
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addpriorsrcdesc.asp 

<%@ Language= VBScript %> 

<f- #include file^Vsupport/globaljttnstants.asp* 1 -> 

<!— #include fHe=\./support/dbConnection.asp M ~> 

<!- ^include file="../support/adoUtils.asp" -> 

<!- # include ftle=".ysupport/srcTab.asp* -> 

<!- # include file="../suppoit/setupTab.asp M -> 

<!-#include fite=".Vsupport/libCommoaasp" -> 

<% 

dim l_col_names(8) 

l_ftle - "addPriorSrcDesc.asp" 

l_col_names(0) = "PRIOR SOURCE IDENTIFIER" 

I_col names(l) = "RENEWALS PRIOR SOURCE DESC M 

1 cof names(2) = "BILLING CURRENT SOURCE DESC 

f coUames(3) - "MODEL SOURCE CATEGORY" 

l_col names(4) - "MODEL SOURCE" 

I cof names(5) - "AGENT SOURCE" 

fcol_names(6) = "VALID FROM DATE" 

l_col_names(7) - "VALID TO DATE" 

l_ColumnCount = 8 

l_sp_add - "sp_Add_prior_Source_desc M 
l_Title - "Prior Source Description" 
l_sctupTabLink - "setupPriorSrcDesc.asp" 
l_showPrevSeiection- true 

addAccept IJTolumnCount, I_setupTabLink, l_sp_add, SessionCPRODUCTJD") 
addHeading l_file, l_filc 

'addMain ljideJ_$etupTabLinU_coiumncount, "\ l_col_names, controljype, controL_argl, controL_arg2, 
control_arg3^howPrevSe!ection 

addMain I - Title,I_setupTabLink,i_showPrevSeiection, l_col_names t ]_CoIumnCount 

addBottom 
%> 
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addrsctasp 

<%@ Language= VBScript %> 
<!- #include file=\ysupport/global_constants.asp rt -> 
<!- ^include file=*../support/dbConnection.asp" -> 
<1~ #inctude file=*../support/adoUtils.asp" -> 
<!- #include flle= : ^./support/s^cTab.asp ,, -> 
<!-#include file=\7suprx)rt/pickListObj.asp'' -> 
<!- ^include file=="../support/JavaScripts.asp" -> 



<% 

'Response. Write "Action " & "<br>* 
dim DEBUG 
DEBUG — false 

dim IJabei(lO) 

dim I_values(33) 

■dimI_basis_opt(10X7) 

IJabel(O) = M Sub Revenue** 
Habei(l) = "Ad Revenue" 
ljabel(2) = "List Rental Revenue" 
l_label(3) = "Other Revenue" 



If RequestFormrSUBMIT.x") o - then 
l_action - -SUBMIT" 

else 

fraction - "x" 

end if 

'Response. Write "Action " & I_action & "<br>" 
if L_action ~ "SUBMIT then 
* response. write "<BR>Add envoked<BR>" 
for 1 = 0 to 7 

l_values(i) = Request. Form("PJ' & i ) 

next 

l_r_set_name = Request Jorm("P_r_SET_NAME") 
if l_r_set_name > " " then 

objCMD. ActiveConnection = strSQLOLEDB 

objCMD.CommandText = *sp_add j)rod_r_set" 

objCMD.CommandType = adCmdStoredProc 

objCMD.Parameters.Refresh 
USER SUPPLIED 

objCMD.Parameters(l). Value - Session("PRODUCT_ID") 

objCMD.Parameters(2). Value =!_r_set_name 

for k = 0 to 7 

IF DEBUG = TRUE THEN - 

Response. Write (k +3) & * " & k & " " & t_values(K) & "<br>" 
END IF 

if k mod 2 = 0 then 
objCMD.Parameters(k + 3).Value = validateNumber(l_values(k)) 

else 

objCMD.Paramcters(k + 3). Value - vaiidatePickList(l_values(k)) 



end if 

' Response. Write k + 3 & " = * & l_values(k) & "<br>" 
next 

Set TempNonSessionVar = objCMD.ExecuteO 

end if 

Response.Redirect "setupRset.asp" 
Else 

l_action - "New" 
end if 
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Response. Write "Hate " & l_action 
%> 

<HTMLxHEADxtitIe> 

addRsetasp 

</tit!e> 

<META NAME="G£NERATOR" Content= M Microsoft Visual Studio 6.0"> 
</HEAD> 

<script language="JavaScript w > 
<!- 

function MM_swapImgRestore() { //v2.0 
if (documentMM_swapImgData !- null) 
for (var i=0; i<(documentMM_swapImgData.length-l); i+=2) 
documentMM_swapImgData[i].src - documentMM_swapImgData[i+l]; 

} 

function MM_preloadImages() { //v2.0 
if (documentimages) { 

var imgFiles = MM_preIoadImages.arguments; 

if (documentpreloadArray==nuil) document. preloadArray - new Array 0; 
var i ■* document preloadArray. length; 

with (document) for (var j=0; j<imgFilesJength; j++) if (imgFilesO]xharAt(0)!="r){ 
preloadArray[i] - new Image; 
preIoadArray[i-H-].src = imgFiles[j]; 

}> 

} 

function MM_swapImageO { //v2.0 

var i jK^objSt^obj^wapArray^new An-ay,oldAray^ocumenLMM_swapImgData; 
for (i=0; i < (MM_swaplmage.arguments.iength-2); i+==3) { 
objStr = MM_swapImage.arguments[(navigator.appName = Netscape')?^ 1 ]; 
if ((objStr.indexOf( , documentlayers[ f )— 0 && documentlayers=nuH) || 
(objStr.indexOfCdocument.altD "=-0 && documental! ^muli)) 
objStr = ^iocumentM-objStr.substring(objSttJ^ 
obj = eval(objStr); 
if(obj Hnull) { 
swapArray[j++] = obj; 

swapArray[j++] » (oidArray=-nuIl if oldArrayO-l]!=obj)?obj.src:o!dArray[j]; 
obj.src - MM_swapImage.arguments[i+2]; 
}} 

document.MM_swapImgData - swapArray; //used for restore 

} 

//-> 

</script> 

<body bgcolor= w #99CCFF" vlinfc-"000000" link="003366 M > 



<form method=*post w action^addRSetasp" id^forml name=forml> 
<table width*"320" border=*<T> 
<tr> 

<td colspan="3"> 

<table widths 100%" bordcr^O" cellspacing= M 0" ccllpadding«"0"> 
<tr> 

<td width="25%" valign^top^ximg $rc=Vgraphics/add 1222.gif width= M 26" height="14 w x/td> 
<td width="75%" co!span="3" valign*"top"> 
<div align="right w x/div> 
<div align="right"X/div> 
</td> 
</tr> 
<tr> 

<td width- H 25% H valign«"top"> </td> 
<td width= M 75% M colspan="3 M valign= tt top w > 

<div align="right"> </div> 

<div align-"right"> 
<p> 

<inputtype-"image" name^'SUBMIT" value-'SUBMir src=V /graphics/submit I222.gif width="54* height^-^" 

border="0 H 
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alt^Submit to Database" id=imagel> 
</p> 

<p> <font face="Verdana, Arial, Helvetica, sans-serif size=M M xa href= n setupRset.asp M >Retum 

to Revenue Set Setup TabIe</ax/font> </p> 
</div> 
</td> 
</tr> 
</tab!e> 
</td> 
</tr> 
<tr> 

<td height^" 10" align^center" widths" 15(T> </td> 

<td height="l(T colspan= H 2 M > </td> 
</tr> 
<tr> 

<td height="2(T bgcolor="003366" align^center" width-" 15<Txfont face-" Verdana, Arial, Helvetica, sans-senf 
color= w #FFFFFF"xbxfont size=" I ">Revenue 
. Set</fontx/bx/fontx/td> 
<td height="2(T corspan="2"> 
<inputtype= H T£XT' 1 name^pj^setjiame' 

id=0 value-' si2e-' , 27 ,, > 

</td> 
</tr> 

<% for i-0 to 3 %> 
<tr> 

<td height="2(T bgcolor= <, 003366" align="center" width=*l5(Txfont face-'Verdana, Arial, Helvetica, sans-senf 
color="#FFFFFF' , xbxfont size= w 1 "> 
<% 

Response. Write l_!abel(i) 
%> 

</fontx/bx/fontx/td> 
<% 

forj = 0tol 
in_cnt = i * 2 + j 
%> 

<td height="2CT> 

<% if j = 1 then %> 
<select narne='P_<%Response. write in_cnt %>*> 

<% if I_vaiues(in_cnt) = "CPM M then %> 

OPTION vaiue=0>CPM or CPU 
<OPTION value ='CPM'selected>CPM</option> 
<OPTION value ='CPLT >CPU</option> 
<% etseif i_values(in_cnt) « "CPU" then %> 

OPTION vaiue=0>CPM or CPU 

OPTION value ='CPM*>CPM</option> 
OPTION value ='CPU* selected>CPU</option> 
<% else %> 

OPTION value=0>CPM or CPU 
OPTION value =*CPM'>CPM</option> 
OPTION value ='CPU*>CPU</option> 

<% END IF %> 
</SeIect> 

<% eiseif j = 2 then %> 
<% else %> 

<input type-"TEXT w name= 1 P_<%Response.write in_cnt %>' size="12 w maxlength= M 12 H > 
</td> 
<%end if%> 

<%next%> 

</tr> 

<% next %> 
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</tab!e> 

<p> </p> 
</form> 
</BODY> 
</HTML> 
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addsourcc.asp 

<%@ Language=VBScript %> 

<!- # include ftte= H ../support/g!obal_constants.asp" -> 
<]-#inciude fiie==*\./support/dbConnection.asp M -> 
<!~#include fae^.ysupport/adoUtils.asp" -> 
<!-#indude fiie= M .7support/srcTab.asp" -> 



<% 

on error resume next 
dim p_source(4) 
dim p_src_ind(4) 
added = false 
errors = false 
for i - 0 to 4 

p_source(i) - REQUEST("p_source" & cstr(i) ) 
p_srcjnd(i) = REQUESTCp_srcjnd w & cstr(i) ) 
1 Response. Write p_source(i) & p_src_ind(i) 
if p_source(i) > " M and p_srcjnd(i) > " * then 
added - true 

objCMD.ActiveConnection = strSQLOLEDB 

objCMD.CommandText = "sp_add_source" 

objCMD.CommandType ~ adCmdStoredProc 

objCMD.Parameters. Refresh 

objCMD.Parameters(l).Vaiue = p_source(i) 

objCMD.Parameters(2). Value = p_src_ind(i) 

objCMD.Parameters(3).Value = cintCSession^RODUCrjD'')) 

objCMD.Parameters(4). Value = Session("SRC_CAT_NAME") 

objCMD.Parameters(5). Value » SessionfGRP_NAME M ) 

objCMD.Parameters(6). Value = Session(*TITLE_NAME") 
Set TempNonSessionVar = objCMD.ExecuteO 
end if 
next 

ifadded^true then 

Response.Redirect ("adm^a.asp" ) 
end if 

%> 

<html> 
<head> 

<title>IMT Network</title> 
</head> 

<body bgcolor="#99CCFF vtink^OOOOOO" link="003366' , > 



<fonn method="post" action^addSource.asp" name=forml id^form 1 
<table width=*640" border= w <T cellpadding^^ 

<% prevSeiections (3) %> 



<tr vaitgn^top^ 

<td align="ieft" width="64(T colspan aaH 3"ximgsrc=".ygraphics/addl222.gir width= H 26" height= w 14 M x/td> 
</tr> 

<tr vaHgn="top*> 

<td align= n left M widuv* M 64(T colspan^^ 
<pxnobr> 

<imgsrc= H .7graphics/blankl222.gir width="20" height^ 1 6*'ximg src=* ../graphics/blank 1 222.gif width-"20" 
height- K 16 M ximgsrc= H .7graphicsA)lankl222.gir width= w 2CT height="16"ximg src= M .7graphics) f btankl222.gir width«"20" 
height= M I6 H ximgsrc="../graphicsA)lankl222.gir width= M 20 rt heights" 16"ximg src=*\./graphics/blankl 222.gif width="20" 
height-" 16 M ximg src= M .. /graphics/blank 1222.gif width= M 20 M height^ 16"> 



Integrated Marketing Technology 



9/27/00 2:22 PM 



Page 45 of 200 




IMT Subscription Marketing Reporting System 



<inputtype="image M src=Vgraphics/submitl 222.gif width="54" height="16- border= M 0 M a!t= M Submit to Database^ 
<img src=Vgraphics/blankl222.gif width= M 2(T height-" 1 6"ximg src-V/graph icsZblankl222.gif width-"20" 
height-" 16"xfont face-" Verdana, Anal, Helvetica, sans-serif size="-4"xa href^"admin4a.asp">Return 
to Source</ax/fontx/nobr> </p> 

<table width-^S" border-'O" cellspacing^" cellpadding^^ 
<tr> 

<tdbgcolor-"003366"height="25" width-" 166" aiign="center"> r ™m^ 
<div aiign="center"xfontface^Verdana, Ariai, Helvetica, sans-serif color- w #FFFFFF M xbxfontsize= i >SOURCE 
NAME </fontx/bx/fontX/dtv> 
</td> 

<td bgcolor-"003366" height= tt 25 H width= N 4r align= H center"> 

<div aHgn= w center M xfont face="Verdana, Anal, Helvetica, sans-serif color="#FFFFFF"xbxfcnt 
size="r>SOURCE<br> 

INDICATOR </fontx/bx/fontx/div> 
</td> 
</tr> 



<% for i - 0 to 4 %> 
<tr> 

<tdwidth="166" height-" 15" a!ign= M ieft M > . 
<div align="lefrxfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont size- I 

cotor-"#000000"> 
<% 

strSQL = "select U_SOURCE_NAME FROM Source_descriptions * 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, "P_SOURCE" & i,4, "SELECT SOURCE", -1 
objRST.dose 



%> 



</fontx/bx/fontX/div> 
</td> 

<td width-"4 1 " height-" 1 5" align="left"> 
<div align-" left"> 

<inputtype-"texf name-"p_src_ind<% Response. Write i %>" size="10" maxtength-'MO^ 
</div> 
</td> 
</tr> 

<%next%> 



</table> 
<p> </p> 



</td> 
</tr> 
</table> 
</form> 
</body> 
</html> 
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addsourcename.asp 

<%@ Language=VBScript %> 

<!-#include file= M .Vsupport/global_constants.asp w -> 

<!- #indude file^Vsupport/dbConnectioivasp" -> 

<!- #include fne^*„/support/adoUtils.asp" -> 

<!-#include file^Vsupport/srcTab.asp" -> 

<!— ^include file=".ysupport/seti]pTab.asp" 

<% 

dim l_col_names(2) 
l_fHe = "addSourceName.asp" 
l_col_names(0) = "SOURCE" 
l_col_names(l) = "DESCRIPTION" 
l_ColumnCount - 2 

l_sp_add = "sp_Add_Source_Description M 
MTitle - "Source Description n 
i_setupTabLink = "setupSourceName.asp" 
1 showPrevSelection= false 



addAccept ^ColumnCount, l_setupTabLink, l_sp_add, - I 
addHeading \Ji\c> l_file 

addMain ^TiUcLsetupTabLintcLshowPrevSelection^^CoLnames , l_ColumnCount 
addBottom %> 
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adminla.asp 

<%@ Language=VBScript %> 

<!- #inctude file=Vsupport/global_constants.asp" -> 
<!- #inctude flle^Vsupport/dbConnectioaasp" -> 
<!-#inc!ude file=*.ysupport/adoUtils.asp* -> 
<!-#include file=V/support/srcTab.asp" -> 
<% 

Msg = Request.QueryString( M MSG") 

if not session("PiD_PHRASE")>" " then 

Response.Redirect(7welcome.asp") 
end if 

ljhisjile- "adminla.asp" 

if (RequestForm( M disp^ay , ')="2 ,, _ 

and Request.Form("setupTab")<> "0* _ 

and Request.Form("setupTab") > « -) then 

Response.Redirect(Request.For7n( rt setupTab")) 
end if 

dim tmp 

tmp = Request.Form("cmb H ) 

'RequesLForm("cmb") 

IF tmp o "0" and tmp > " H THEN 

session(*GRP_NAME") = tmp 

Response.Redirect( ,, admin2a.asp") 
end if 
%> 



<htmi> 
<head> 

<title> Admin I a.asp</title> 
</head> 

<body bgcolor="#99CCFF" viink="000000 w link= M 003366 M > 
<form method="post" action="<%Response. Write l_this_fiie %>" id=*form2" name-"form2"> 

<table width="640" border="0" cetlpadding= n 2 M > 
<tr vaIign="top"> 



<tdwidth="65"> 

<% '<a href="adminSearch.asp"> 

'<img src- Vgraphics/fastfmd.gif width="36" height="30" border= H 0"x/a> %> 
</td> 

<tdwidth="425"> 

<p> <font color="black" size=M" face=" Verdana, Anal, Helvetica, sans-serif color=b 

<% if Msg = "YES" then %> 

You have been redirected to this page because <br> 

the session variables needed to perform the action<br> you requested have expired.<br> 

Please select the values again.<br> 

</font> 

<% end if %> 

<img src-"../graphics/driIldownl227.gir width«"47" height-" 1 i"xbr> 



<% 

strSQL = "select distinct GRP_NAME from CORPJNFO WHERE " & SESSION("PID_PHRASE") 
Response.Write strSQL & "<BR>" 

objRST.open strSQU strSQLOLEDB, adOpenStatic, adLockOptimistic 



Integrated Marketing Technology 



9/27/00 2:22 PM 



Page 48 of 200 



IMT Subscription Marketing Reporting System 



showQueryListBox objRST, "cmb\5, "SELECT PRODUCT GROUP",* " 
objRST.ciose 

^puttypc^IMAGE" name= M go rt vaIue="go" src= M .. /graphics/go 1 222.gif* WIDTH="33" HEtGHT="16" border=0> 
</p> 



</td> 

</form> 
</tr> 

<tr valign^top^ 
<td width= w 640" colspan="3"> 
<p> </p> 

</td> 
</tr> 
</table> 
</form> 
</body> 
</html> 
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admin2a.asp 



<%@ Language=VBScript %> 

<!- #include file= H .7support/gIobai_constants.asp" -> 
<!- ^include file^.ysupport/dbConnection.asp" -> 
<!- ^include file="../support/adoutiis.asp" -> 
<!- ^include fiie^Vsupport/srcTab.asp" -> 
<% 

Session("USR_ACCESS") - "NONE" 
t_from - Request("FR") 
if not (ljiom > " H ) then 

checkSessionVars( I ) 
end if 



l_this_ftle = "admin2a.asp" 

if (RequestForm("display")="2" _ 

and RequesLForm("setupTab")o "0" _ 
and RequestFormCsetupTab") > " ") then 
Response.Redirect(RequestFormCsetupTab")) 
end if 

dim tmp 

tmp = Request.Form("cmb'*) 

'response.write ("<br>Product: " & tmp & M <br>") 

Response. Write tmp & " this don't work" 

IF tmp o "0" and tmp > " " and RequestFormCfrom") = "0" THEN 
session("PRODUCTJD") - tmp 

sirSQL - "select TITLEJNAME from CORPJNFO where grp_name= ,H & SESSION("GRP_NAME ) . 
& "' and Product_id=" & tmp 

objRST.open strSQL, strSQLOLEDB, adOpertStatic, adLockOptimistic 

session( f TnXE_NAME") = objRST.Fields(0).Va!ue 

objRST.close 

'sessionCTITLE_NAME") - 

check_security 
Response.Redirect("admin3a.asp") 
else 

if Request. Form("from") > " " then 
l_from = RequestFormffrom'') 
end if 

IF tmp o "0 M and tmp > " " then 
session( H PRODUCTJD ,, ) ~ tmp 

strSQL » "select TITLE_NAME, GRPJMAME from CORPJNFO where" _ 
& " Product_id=' 1 & tmp 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

session("TTTLE_NAME") * objRST.Fietds(0).Value 
session("GRP_NAME") = objRST.Fields(l).Va!ue 



Response.Redirect(IJrom) 
objRST.close 
end if 

end if 

ifnotlJrom>""then 
Session("refer_page") = "admin2a.asp H 
Session("refer_Title") = "Product" 

end if 

%> 



<html> 
<head> 

<title>Admin2a.asp</title> 
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</head> 



<body bgcolor=*#99CCFF" vlmk="000000" link= t, 003366"> 

<form method= M post M action= n admin2a.asp M id =,t form2" name="form2"> 
<table width= M 640'* border= M (T cellpaddingr ,, 2"> 
<% if IJrom > " " then %> 

<font size=M* face="Verdana, Ariai, Helvetica, sans-serir coior=bIack> 
<b>Please select a Product Id </b> 

<font> 

<input type="Hidden rt name="FR* vaiue^ M <%Response. Write 1 Jrom %>"> 
<%eise%> 

<% prevSelections (1) %> 

<input type="HidderT name="from" vaIue=' , 0 M > 
<%end if%> 
<tr valign^BOTTOM^ 

<td width="65"> 
</td> 

<td width= rt 425"> 

<p> <img src- M ../graphics/drilldownl227.gir width-M?" heighten" border=Oxbr> 
<% strGrp = sessionfGRP_NAME M ) 
iflJrom>*"then 

strSQL - "select PRODUCTJD, TITLE_NAME from 



CORP INFO where" 



& " " & SESSION( H PtD_PHRASE") _ 
& " Order by titie_narne M 



CORP INFO where * 



border=0> 



</tr> 
<tr> 



</td> 



<td width= 



else 



end if 



strSQL = "select PRODUCTJD, TITLE_NAME from 

& " grp_name- " & strGrp _ 

& and ( " & SESSIONCPID_PHRASE tt ) & T _ 

& " Order by title_name " 



'response.write ("<br>SQL: " & strSQL & -<br>") 
objRST.open strSQU strSQLOLEDB, adOpenStatic, adLockOptimisttc 
showQueryListBox objRST, "cmb",5, "SELECT PRODUCT," " 
objRST.closc %> 

<input type^IMAGE" name="go" value="go" src="../graphics/go 1222.gif* 
</p> 



<%' <img src-Vgraphics/optionai 1222.gif width="37" height^! i"> 
* setupTableListBox %> 
<br> 

</td> 

</tr> 

<tr valign="top"> 

<td width= M 640 M colspan»"3 ,, > 
<p> </p> 

</td> 

</tr> 
</table> 



</form> 



</body> 
</htmi> 
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admin3a.asp 

<%@ Language=VBScript %> 

<!« ^include fi!e= w .7support/globaI_constants.asp" -> 
<!- ^include flle=' , .7suppo^t/dbConnection.asp ,, -> 
<!- ^include fiie= i,, ../support/adoUtiis.asp H ~> 
<!- ^include flle^^./suppo^t/s^cTab.asp t, -> 

<% 

'checkSessionVars(2) 
I_this_fi!e = "admin3a.asp" 
Session("refer_page") = "admin3a.asr/ 
Session(*refer_Titie H ) = "Source Category" 

'if Request. form( w AUTOSETUP") o WM then response.redirectCtabautosetup.asp") 
'if(Request.FormCdisplay , ')="2 n _ 

• and Request.Form( n setupTab w )o "0" _ 

* and RequestFormCsetupTab 1 *) > " ") then 

' Response.Redirect(RequestForm( M setupTab'')) 
'end if 
dim trap 

tmp - Request.FormCcmb* 1 ) 

'response. write ("<br>Source Category: " & tmp & M <br>") 
IF tmp o "Q n and tmp > * M THEN 

Sess ion("SRC_C AT_N AME") - tmp 

Response. Redtrect(* , admin4a.asp w ) 
end if 
%> 



<htmi> 
<head> 

<title>Admin3a.asp</title> 
</head> 

<body bgcolor= M #99CCFF" v!ink= H 000000" link= M 003366"> 

<table width="640" border^O" cellpaddmgr^ 
<% prevSelections (2) %> 

<form method="posC action="<%Response.Write !_thts_file %>" id="form2** name= M form2 H > 

<tr valign^BOTTOM^ 
<td width=*65*> 

<% ' <a hre£="adminSearch.asp M > 

1 <img sr^.ygraphics/fastfmd.gif width =,, 36* height^C border^ w 0 ,, x/a> 

%> 

</td> 

<td width="425"> 

<imgsrc=\ygraphics/drilldownl227.gif width= M 47" height= M li M border= t, 0 K xbr> 



<% 

strSQL « "select SRC_CAT_NAME from SRCCATEGORY where " _ 

& M grp_name - ,M & Sessionf GRP_NAME rt ) & _ 

& " and PRODUCT©-*" & Session("PRODUCTJD") & 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

showQueryListBox objRST, M cmb w ,5, "SELECT SOURCE CATEGORY",- 1 
objRST.close 
%> 

-cinputtype^IMAGE" name="go H value="go" src=".. /graphics/go 1222.gif WIDTH^33" HEIGHT^ie* border="(r> 
<p> 
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^nputtype^HIDDEN" name^AUTOSETUP" vaiue="Edit Auto-Setup Parameters > 
<p> 



<Jtd> 
</form> 



<%* setupTableListBox i_this_ftle%> 



</tr> 

<trvalign= ,, top ,, > 
<td width= M 640 fl colspan= M 3"> 
<p> </p> 

</td> 
</tr> 
</table> 
</form> 
</body> 
</html> 
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admin4a.asp 



<%@ Language- VBScript %> 

<!- # include file=Vsupport/global_constants asp" ~> 
<!- # include flle=\Vsuppo^t/dbConnect^on.asp ,, -> 
<!- # include fl^e=^./suppo^t/adoUtils.asp ,, -> 
<!- #inciude fiIe= M .,/support/srcTab.asp'' -> 
<!-#include ftle^./support/JavaScripts.asp" ~> 

<% 

checkSessionVars(3) 
t_this_file = "adm^a.asp" 

SessionCrefer^page") = "admin4a.asp" 

Session("refer_Title H ) = "Source" 
if (Request Form( ,, dispiay ,, )="2" _ 

and RequestFormCsetupTab^o "0" _ 
and RequestJormCsetupTab") > " ") then 
Response.Redirect(Request.Form( w setupTab ,, )) 

end if 

dim tmp 

tmp = Request Formfcmb") 



IF tmp o "0" and tmp > " " THEN 



& N * and Product Jd=" & SESSlONfPRODUCTJD") 
'Response. Write strSQL 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
sessionCSRCJNDICATOR w ) = objRST.Fields(0). Value 
objRST.close 

, sessionC , TTTLE_NAME < ') = 
Response. RedirectCadmin5a.asp M ) 
end if 

%> 

<headxtitle>Admin4a.asp</title> 

<% LorieScripts %> 

</head> 



<bodybgcolor= ,, #99CCFF , 'vlink-'•000000 ,, link- M 003366 ,, 

0 nUad= M MM^reloadImagesCgraphic^ 

5899269583T> 

<% 1 <body bgcolor-*#99CCFF" vlink^OOOOOO* link= M 003366"> %> 

<table md\h~ n 640 n bordeF="0 M cellpadding= ,, 2 ,, > 
<% prevSelections (3) %> 

<form method="posr action="<%Response. Write Ijhis Jile %>* id= M form2" name= w form2 H > 
<tr vatign="BOTTOM M > 
<td width= w 65"> 

<% ' <a href b=M adminSearch.asp M > 

• <img src= M .7graphics/fastfmd.gir width="36 H height= M 30" border^0 M X/a> 

%> 

</td> 

<td widuV= M 50<r> 

<p> <img src= M ../graphics/driIIdownl227.gif' width="47 M height! T border= tt (Txbr> 




<% 



strSQL ^ "select SOURCE_NAME from SOURCE where " _ 
& " grp_name = ,M & SessionfGRP_NAME tt ) & m " _ 
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& n and PRODUCT_ID= rt & Session("PRODUCT_ID") _ 

& " and src_cat_name = & Session( w SRC_CAT_NAME M ) & ,MM 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

showQueryListBox objRST,' w cmb",5, "SELECT SOURCE", -1 
objRST.close 

Sput type="LMAGE" name^go* vaIue= M go* src^7graphics/go 1222.gif WIDTH=«33" HEIGHT="i6 w border=«<T> 
<p> 



</td> 
</form> 

<% 1 setupTableLisiBox Uhis Jite %> 
</tr> 

<tr valign= M top"> 
<td width="640" colspan-^^ 
<p> </p> 

</td> 
</tr> 
</tabtc> 
<% 

]_query = "select SOURCE_NAME, SRC_INDtCATOR, rec_id from SOURCE where N _ 

& " grp_name « m & SessionCGRP_N AME") & **"* _ 

& - and PRODUCTJD-" & Se5sion("PRODUCTJD") & _ 

& " and src_cat_name = & SessionCSRCCATNAME") & _ 

& " Order by SOURCE_NAME " 

l_columnCount = 2 
l_addProc = "addSource.asp" 
feditProc - "editSource.asp" 
dim Uitle(2), l_cotumnWidth{2) 

i jitle(0) = "SOURCE NAME " 

IjwIumnWidiKO)-^" 

Ijitie(l) = " SOURCE<br> INDICATOR " 

Ij»IumnWidth(l) = MP 



adminTabte l_Title, l_Query, l_editProc,l_addProc,l_cotumn Width, L_CoiumnCount 
%> 

</form> 
</body> 
<Aitml> 
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adminSa.asp 

<%@ Language-VBScript %> 

<!- # include file-'. ./support/g!obal_constants. asp" -> 
<!- # include file-"../support/dbConnection.asp" -> 
<!-#inctude file=\./support/adoUtils.asp" -> 
<!- #include file=\./support/srcTab.asp" -> 
<!- #include file=\./support/JavaScripts.asp" ~> 
<!- #include fiIe=".ysupport/objEdit.asp" -> 
<% 

checkSesstonVars(4) 
l_this_file = "admin5a.asp" 

Session(*refer_page' 1 ) - H admin5a.asp" 
Session("refer_Title") - "Campaign" 

if(Request.Form("display M )="2" _ 

and RequestFormCsetupTab w )o "0" _ 
and RequesLForm("setupTab") > nn ) then 
Response.Redirect(Request.Form("setupTab tt )) 
end if 

dim tmp 

tmp ~ Request. Form("cmb M ) 

IF tmp o "0" and tmp > " * THEN 

session("CAMP_NAME") - tmp 

Response.RedirectCadmin6a.asp'') 
end if 

'Dim vars 

'Common 
dim recordcount 
dim checked_records 
dim i 

dim WhereCIause 
dim recordidlist 

'Edit vars 
dim MSE 

'Group Edit vars 
dim PGE 
dim index 
dim recordid 

'Add 

if Request.form("addbutton*) > K * then response,redirect("addCarnp.asp") 
•Edit 

if RequestformCeditbutton") > " " then 

'Setup first page, then let edit handle the rest 

'init obj 

set MSE = new objGroupEdit 
'Get records 

recordcount = Requestform("P_RecCount*) 

•response.writeCThere are n & cstr(recordcount) & " records <br>") 

recordidlist - 

toomanyrecords = 0 

checked jrecords = 0 

for i - I to recordcount 

recordid - Request. form("Pj;heck M & cstr(i)) 
if recordid > " " and len(recordidlist) > 0 then 
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checked_records = checked_records + 1 
if checked_records > 19 then 




next 



SessionfRECORDIDLIST) = recordidiist 
Session("toomanyrecords") = toomanyrecords 

if recordidiist > " " then response.redirect("ms_editcampaign.asp?pg== : n 



Tost/Delete/Copy Group Edit Info 

if Request.form( tt GroupEdit") > H " or requestformC'deletebutton") > * " or request.form( w copybutton") > " " then 
'init obj 

set PGE - new objPostGroupEdit 
PGE.init 



'Get records 

recordcount = RequestformCpJ^ecCount") 

'response.writeCThere are H & cstr(recordcount) & " records <br>") 

for i — 1 to recordcount 

recordid » Request formCP_check* & cstr(i)) 
if recordid > * " then PGE.AddRecord recordid 

' response.write(recordid) 



'Set Stored Procedure info 

PGE.CIassType = "Group Edit" 

PGE.SP - "sp^edi^campaign" 

PGETableName = "campaigns" 

if Request.form(*GroupEdif) > " " then PGE.IsDeiete - 0 

if request.form("deletebutton") > " " then PGE.IsDeiete = 1 

if request.form("copybutton") > " " then PGE.IsDelete = 2 

PGE.AddParam "camp_name" 

PGE.AddParam "camp_date_fr" 

PGE.AddParam "camp_type" 

PGE.AddParam "camp_status_name* 

PGE.AddParam "e_set_name" 

PGE.AddParam "r_set_name" 

'PGE.AddParam "newstand_sale" 

PGE.AddParam "budgeted_gross_pct" 

PGE.AddParam "budgeted_voP 

PGE.AddParam "login" 

PGE.AddParam "recjd" 

PGE.AddParam "IsDelete" 

objCMD-ActiveConnection = strSQLOLEDB 

objCMD.CommandText = "sp_edit_campaign" 

objCMD.CommandType = adCmdStoredProc 

objCMD.parameters.re fresh 

PGE.PostGroupEditsBySP 

end if 

%> 

<html> 
<head> 

<title>Admin5a.asp</title> 
</head> 

<% LorieScripts %> 

<body bgcoIor="#99CCFF" viink="000000" link= ,, 003366"> 
<table width="640" border="0" cellpadding=*2 M > 



end if 



next 'i 
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<% prevSelections (4) %> 

<form method^post" action="<%Response. Write ljhis Jile %>" id=*form2" name="form2"> 
<tr valign-"BOTTOM"> 
<td width="65"> 

<% ' <a href="admmSearch.asp M > 

' <img src=V/graphics/fastfind.gif ' width="36 rt height="30" border="G"></a> 

%> 

</td> 

<td width="425"> 

<p> <imgsrc=".ygraphics/drilldownl227.gir width="47" hei^it^" 1 1 "xbr> 



<% 

strSQL = "select CAMP_NAME from CAMPAIGNS where " _ 
& M grp_name = '" & Session("GRP_NAME") & n,n _ 
& " and PRODUCTJD^" & Sessionf PRODUCT JD") & _ 
& " and src_cat_name = m & SessionCSRC^CAT^NAME") & _ 
& " and source_name « " & Session("SOURCE_NAME") & _ 
& " ORder by CAMP_NAME DESC " 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

showQueryListBox objRST, "cmb",5, "SELECT CAMPAIGN", -1 
objRST.close 

%> <input type-"IMAGE" name= M go" vaiue^go" src="../graphics/gol222.gif 
WIDTH="33" HEIGHT-" 16" border=0> 



</p> 



</td> 
</form> 



<% * setupTableListBox Uhisjile %> 
</tr> 

<tr valign="top"> 
<td wtdth="640" co!span= N 3 M > 
<p> </p> 

</td> 
</tr> 
</table> 
<% 

'Group Edit info 

set GE = new objGroupEdit 
GE.init 

GE.action = "adminSa.asp" 
GE.RowCount=l 

'Group Edit Show/Hide button 

if Request.form("SHOWGROUPEDIT") > " " then 

%> <form method^'posf action= M <%Response.Wrtte I jhisjfile %>" id="hidegeform" 

name^hidegeform^ 

<table> 

<tr> 

<td width="20">&nbsp</td> 
<tdxinput type="submit" value= M Hide Group Edit" 
name= n HIDEGROUPEDIT" action-"forrn.submit"></td> 
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</tr> 

</table> 
</form> 

<% 

GE.Sbow = True 

else 

%> <form method= H post" action- ' <%Response. Write i_this_file %>" id="showgeform n 
name="showgeform"> 

<table> 

<tr> 

<td width="20">&nbsp</td> 
<tdxinput type="submit" vaIue="Show Group Edit" 
name="SHOWGROUPEDrr action="form.submit"></td> 

</tr> 

</tabte> 
</form> 

<br> <form method="POST" action== M <%=action%>" name=="Group_Edit_Form" cellpaddingr*3" 

cellspacing ="3"> 

<% 

GE.Show = False 

end if 

'Campaign Name 
index = GE.Addltem 
GE.fiddType index, "LABEL" 
GE.ColumnHeader index, "CAMPAIGN NAME" 

'Campaign Start Date 
index = GE.Addltem 
GEfieldType index, "TEXT'' 
GE.ColumnHeader index, "CAMPAIGN DATE" 

'Campaign Type 
index = GE.Addltem 
GE.fieldTvpe index, "SELECT" 
GE.ColumnHeader index, "CAMPAIGN TYPE" 

GE.strSQL index, "select CAMP_TYPE_NAME from PROD_CAMP_TYPE where PRODUCTJD=" & 
Session("PRODUCT_lD") & * order by campjype_name " 

'Campaign Status 
index = GE.Addltem 
GE.fieldrvpe index, "SELECT" 
GE.ColumnHeader index, "CAMPAIGN STATUS" 

GE.strSQL index, "select CAMP_STATUS_NAME from PROD_CAMP_STATUS where PRODUCT_ir>=" & 
Session( w PRODUCT_ID") & * order by camp_status_name " 

'Campaign End Date 

'index = GE.Addltem 

'GE.fiel<fType index, "LABEL" 

'GE.ColumnHeader index, "CAMPAIGN END DATE" 

'Expense Set 
index = GE.Addltem 
GE.fieldrvpe index, "SELECT" 
GE.ColumnHeader index, "EXPENSE SET" 

GE.strSQL index, "select e_set_name from EXPENSE_SETS where PRODUCT_ID=" & 
Session("PRODUCTJD") & * order by e_set_name " 

'Revenue Set 
index * GE.Addltem 
GE.fieIdType index, "SELECT" 
GE.ColumnHeader index, "REVENUE SET" 

GE.strSQL index, "SELECT r_set_name from revenue_sets where product Jd = " & Sesston("PRODUCT_ID") 
& " order by r_set_name" 

•Newstand Sale 
'index = GE.Addltem 
■GEfleldType index, "TEXT" 
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'GE.ColumnHeader index, "NEWSTAND SALE" 

'Budgeted Gross % 
index = GE.Addltem 
GE.5eldtype index, TEXT 

GE.ColumnHeader index, "BUDGETED GROSS PCT" 

"Budgeted Vol 
index = GE.Addltem 
GE.fieldtype index, "TEXT 
GE.ColumnHeader index, "BUDGETED VOL" 

'Page 

GE.MS_Page = 1 

'Display Table 
GE.DisplayEditTable 

l_query - " select CAMP_NAME as 'CAMPAIGN NAME', CAMPJDATE_FR as 'CAMPAIGN DATE', CAMPJTYPE 
as 'CAMPAIGN TYPE* " 

& " CAM P_ST ATU S ~N AM E as 'CAMPAIGN STATUS*, EJSETNAME as 'EXPENSE SET, R_SETNAME as 'REVENUE 
SET " 

* ~ & " BUDGETED_GROSS_PCT as 'BUDGETED GROSS PCT, BUDGETED_VOL as 'BUDGETED VOLUME 1 , 
RECJD from CAMPAIGNS where " _ 

& - GRP_NAME = w & Session("GRP_NAME") & _ 

& " and PRODUCT JE^" & SessionCPRODUCTJD") & "" _ 

& M and src_cat_name = *" & Scssion("SRCjCATNAME") & "'" _ 

& " and source_name = " & Session("SOURCE_NAME") & mm _ 

& " Order by CAMP_NAME DESC " 

i_columnCouni = 8 
l_addProc = "addCamp.asp" 
l_editProc = "editCamp.asp" 
dim ljitlc(8), l_columnWidth(8) 

1 jitle^O) = "CAMPAIGN NAME " 

l_colLrninWidth(0)- M 152 M 

Ijitie\l) = "CAMPAIGN<br> START DATE " 

1 cohimnWidth(l) = ,, 76 M 

f title* 2) = "CAMPAIGN TYPE " 

f coliannWidth(2) = "76" 

I_titlet.3) = "STATUS " 

i_columnWidw(3) = "69" 

l_titlet,4) = "EXPENSE SET " 

l_columnWidth(4)=="73" 

l_titie<5) - "REVENUE SET " 

l_colinnnWidth(5) = "73" 

l_tit!e<6) = "BUDGETED GROSS PCT" 

LcoIumnWidth(6) = "40" 

l_titIeC7) = "BUDGETED VOLUME" 

l_co!umnWidth(7) = "40" 



'adminTable IJTitle, LQuery, i_editProc,l_addProc,Lcolumn Width, L_CoiumnCount 
l_nan« = "Campaigns" 
l_editProc = "editCamp.asp" 
l_addProc = "addCamp-asp" 

set myObjEdit « New ObjEdit 

myObjEditinit I_Name, l_editProc,l_addProc, I_this_file 
myObjEditdefineComplex(8) 
myObjEdit.setQuery(l_query) 
myObjEditSelectTable 

%> 

</form> 
</body> 
</html> 
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admin6a.asp 

<%@ Language=VBScript%> 

<!~#include file^.ysupport/globaljttnstants.asp 1 ' -> 
<!- # include fI!e= : ^./support/dbConnection.asp , ' -> 
<!- #inc!ude ftle= n ../support/adoUtils.asp M -> 
<!-#include fiie= M ../support/srcTab.asp ,t -> 
<l-#include file= M ../support/JavaScripts.asp" ~> 
<!- # include file^ysupport/objEditasp" -> 
<1- #include fae^ysupport/objRecIdManager.asp'' -> 
<% 

checkSessionVars(5) 
!_this_file = w admin6aasp" 

Session( w refer_page M ) = "admin6a.asp w 
SessionCrefer_Title M ) - "Panel" 

if (Request.FormC , display"K2 K and Request.Form( n setupTab M )o "0" and Request.Form("setupTab w ) > " ") then 

Response.Redirect(RequestForm("setupTab")) 

dim tmp 

imp = RequestFormfcmb") 

IF tmp o "0" and tmp > " " THEN 

session(TANEL_NAME M ) = tmp 
Response.RedirectCAdminKeys.htm") 
end if 

'Dim vars 

'Common 

dim recordcount 

dim i 

dim WhereClause 
dim recordidlist 

'Edit vars 
dim MSE 

'Group Edit vars 
dim PGE 
dim index 
dim recordid 

'Add 

if RequestformCaddbutton") > * " then response.redirectCaddPanei.asp") 
'Edit 

if Request.form( w editbutton") > " " then 

'Setup first page, then let edit handle the rest 

'ink obj 

set MSE = new objGroupEdit 
'Get records 

recordcount - Request. formCP_RecCount") 

'response. writeCThere are " & cstr(recordcount) & " records <br>") 
recordidlist - 
toomanyrecords ~ 0 
checked_records = 0 
for i = 1 to recordcount 

recordid = RequestformCP^check" & cstr(i)) 
if recordid > " " and len(recordidlist) > 0 then 

checked j-ecords = checked_records + 1 
if checked_records > 19 then 
toomanyrecords = 1 

else 
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recordidlist = recordidlist + \" + cstr(recordid) 

end if 

elseif recordid > " " then ' don't add comma first time 
recordidiist = cstr(recordid) 

end if 

next 

SessionC'RECORDIDLIST) = recordidlist 
Session( M toornanyrecords") = toomanyrecords 
sessionfpage") = 1 

if recordidlist > " " then response.redirectCn^editpanel.asp??^!") 

end if 

'Post/Delete Group Edit Info 

if RequestformfGroupEdit") > " " or requestformfdeletebutton") > " " or request, formfcopybutton") > " " then 
'ink obj 

set PGE - new objPostGroupEdit 
PGE.init 

'Get records 

recordcount = Request. form("p_RecCount") 

'response.write("There are " & cstr(recordcount) & " records <br>") 
for i = 1 to recordcount 

recordid « RequesLformCPjiheck" & cstr(i)) 

if recordid > " " then PGE.AddRecord recordid 
' response.write(recordid) 
next *i 

'Set Stored Procedure info 
PGECIassTypc « "Group Edit" 
PGE.SP = "sp_edit_paner 
PGE.TableName = "panels" 

if Request.form("GroupEdit") > " " then PGE.IsDelete = 0 

if request.form("deIetebutton") > " M then PGE.IsDelete = I 

if request.form("copybutton") > " " then PGE.IsDelete = 2 

PGE.AddParam "panel_name" 

PGE.AddParam "panel_date_start* 

PGE.AddParam "paneljype" 

PGE.AddParam "pane!_subtype" 

PGE.AddParam "test-type" 

PGE.AddParam "panel_pkg" 

PGE-AddParam "e_set_name" 

PGE.AddParam "r_set_name" 

'PGE.AddParam "newstand_sale_marker" 

PGE.AddParam "login" 

PGEAddParam "recjd" 

PGE.AddParam "IsDelete" 

objCMDActiveConnection = strSQLOLEDB 

objCMD.CommandText = "sp_edit_panei" 

objCMD.CommandType = adCmdStoredProc 

objCMD.parameters.refresh 

PGE.PostGroupEditsBySP 

'Post Edits By Query starts here ... 
'Build where clause 

Whereclause = " and grp_name = '"& Session("GRP_NAME") & "'" _ 
1 & * and PRODUCT \D sfm & Session("PRODUCT_ID") & _ 
' & " and src cat_name = '"& Session("SRC_CAT_NAME") & "'" _ 
' & " and sourcename = '" & Session("SOURCE_NAME") & M,M _ 
' & " and Camp_name « *" & Session("CAMP_NAME") & "'" 

'Pane! Date Start 
index = PGE.Additem 

PGE.UpdateSQL index , "Update panels set pane^_date_sta^t= !:, ' 
PGE. Where index, WhereClause 

'Panel Type 
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index - PGE-Addltem 

PGE. UpdateSQL index, " Update Panels set Panel_type =" 
PGE.Where index, WhereClause 

'Panel SubType 
index = PGE.Addltem 

PGE. UpdateSQL index, "Update Panels set panel_subtype=" 
PGE.Where index, WhereClause 

Test Type 

index = PGEAddltem 

PGE.UpdateSQL index, "Update Panels set test Jype 85 " 
PGE. where index, whereclause 

'Package Type 
1 index = PGE.additem 

PGE.UpdateSQL index, "Update Panels set panel_pkg 
PGE.where index, whereclause 

'Expense Set 
index- PGE.Addltem 

PGE.UpdateSQL index, "Update Panels set e_set_name = " 
PGE.Where index, WhereClause 

Revenue Set 

index = PGE.Addltem 

PGE.UpdateSQL index, "Update Panels set r_set_name = " 
* PGE.where index, whereclause 

'Newstand Marker 
index - PGRAddltem 

PGE.UpdateSQL index, "Update Panels set newstand_saie_marker=" 
1 PGE.where index, Whereclause 

'Do it 

PGE.PostGroupEditsByQuery 
'...and ends here 

end if 



%> 

<html> 
<head> 

<title>Admin6a.asp</title> 
</head> 

<% LorieScripts %> 

<body bgcolor="#99CCFF" vlink="000000" link="003366"> 

<table width= M 640" border-'O" cellpadding="2 H > 

<% prevSelections (5) %> 

<form method="post" action~ H <%Response. Write Ijhisjile %>" id^"form2" name="form2"> 
<td width= M 40"x/tdxtdximg src=\./graphics/drilldown 1227.gif wtdth="47" height=" 1 1 "x/tdxbr> 
<td width="60"> 



<% 

strSQL = "select PANEL_NAME from PANELS where " _ 
& " grp name = '" & Session("GRP_NAME") & _ 
& " and PRODUCTJD-"* & Session( M PRODUCT_ID") & _ 
& H and src catname = •" & Session("SRC_CAT_NAME") & 
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& M and source_name = "' & SessionCSOURCE_NAME") & 
& " and Camp_name = '" & Session(' , CAMP_NAME ,, ) & 



objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

showQueryListBox objRST, "cmb\5, "SELECT PANEL",-1 

objRSTxlose 

%> 

<inputtype= sH IMAGE M name^go" valued-go" src= w .. /graphics/go 1222.gif 
W1DTH-"33 M HEIGHT="16" border=0> 



</p> 



</td> 
</form> 

<%* setupTableListBox Uhtsjile %> 
</tr> 

</table> 
</form> 

<% 

I__editProc = "editPaneLasp" 
l_addProc = "addPanel.asp" 

myQ = "select PANEL_NAME AS 'PANEL NAME', " _ 
& " PANELJDATE_START as 'PANEL DATE START, M _ 
& " PANEL_TYPE as 'PANEL TYPE\ " _ 
& H PANEL_SUBTYPE as 'SUBTYPE',^ 

&" TESTTYPE as TEST TYPE\ n _ 
& " PANEL_PKG as 'PACKAGE 1 , 
& " E_SET_NAME as 'EXPENSE SET, " _ 
& " R_SET_NAME as 'REVENUE SET/_ 

&T RECJD from PANELS where " _ 
& * grp_name - " & Session("GRP_NAME w ) & "'" _ 
& " and PRODUCT JD= M & Session( H PRODUCT JD H ) & _ 
& " and src_cat_name - ' M & SessionrSRC_CAT_NAME") & _ 
& M andsource_name = ,M & Session("SOURCE_NAME' t ) & 
& " and Camp_name = ,M & Session("CAMP_NAME") & _ 
& - Order by SOURCE_NAME " 
I_name - "Panels" 

set myObjEdit = New ObjEdit 
%> <% 

'Group Edit info 

set GE - new objGroupEdit 
GE.init 

GE.action - "admin6a.asp* 
GE-RowCount = 1 

'Group Edit Show/Hide button 

if Request form("SHO WGROUPEDiT") > " " then 

%> <form method^post" action= M <%Response. Write Ijhisjfile %>" id="hidegeform' 

name="hidegeform"> 

<table> 

<tr> 

<td width="20' , >&nbsp</td> 
<tdxinput type^submit" vaIue="Hide Group Edit" 
name="HIDEGROUPEDrr ,, action= ,, form.submit* , x/td> 

</tr> 

</table> 
</form> 

<% 

GE.Show = True 

else 
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%> <form method="post" action-' <%Rcsponse.Write ijhisJHe %>" id="showgeform" 
name="showgeform"> 

<table> 

<tr> 

<td width="20">&nbsp</td> 
<tdxinput type= M submit" value- 'Show Group Edit" 
name="SHOWGROUPEDIT H action="form.submit"x/td> 

</tr> 

</table> 
</form> 

<br> <form method="POST" action="<%=action%>" name="Group_Edit_Form" cellpaddmg="3" 

cellspacing - n 3"> 

<% 

GE.Show = False 

end if 

'Panel Name 

index = GE.Addltem 

GE.fieldType index, "LABEL" 

GE.ColumnHeader index, "PANEL NAME" 

'Panel Date Start 

index = GE.Addltem 

GE.fieldType index, "TEXT" 

GE.ColumnHeader index, "PANEL DATE START" 

'Panel Type 

index = GE.Addltem 

GE.fieldType index, "SELECT" 

GE.ColumnHeader index, "PANEL TYPE" 

GE.strSQL index, "SELECT panel_type_name FROM corp_panel_type ORDER BY pane!jype_name M 

'Panel SubType 
index = GE.AddItem 
GE.fieldtype index, "SELECT" 
GE.ColumnHeader index, "SUBTYPE" 

GE.strSQL index, "SELECT panel_sub__type_name from corp_panel_sub_type order by panel_sub_type_name" 
Test type 

index = GE.Addltem 
GE.fieidtype index, "SELECT" 
GE.ColumnHeader index, "TEST TYPE" 

GE.strSQL index, "SELECT panel_test_type_name from corp_panel_test_type order by panel Jestjype_name* 

'Package Type 
index = GE.AddItem 
GE.fieldtype index, "SELECT" 
GEColumnHeader index, "PACKAGE" 

GE.strSQL index, "SELECT package_name from prod_panel_package where productjd = " & 
Session("PRODUCT_ID") & * order by packagejiame" 

'Expense Set 

index = GEAddUem 

GEfieldtype index, "SELECT" 

GEColumnHeader index, "EXPENSE SET" 

GE.strSQL index, "SELECT e_set_name from expense_sets where productjd - " & Session("PRODUCT_ID") 
& " order by e_set_name" 

'Revenue Set 
index ^GE.Addltem 
GE.fieldType index, "SELECT" 
GEColumnHeader index, "REVENUE SET" 

GEstrSQL index, "SELECT r_set_name from revenuejsets where productjd = " & Session("PRODUCT _ID") 
& " order by r_set_name" 

"Newstand Marker 
'index = GE.Addltem 
'GE.fieldType index, "SELECTLOV" 
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'GE.ColumnHeader index, "NEWSTAND MARKER" 
'GE.strSQL index, "N,Y" 

'Page 

G£.MS_Page=l 
'GE.MS_Tab!e - "panels" 

'GE.MS WhereCIause = "where grp_name = m & Session( M GRP_NAME") & _ 

& " and PRODUCT JD= H & Session("PRODUCTJD") & M " _ 
& " and src_cat_name SessionCSRC^ATJ^AME") & 

& " and source_name « ™ & SessionCSOURCEJ^AME") & " 

& " and Camp_name = ,M & Session(* , CAMP_NAME 1 ') & 
'GRMSOrderBy = M Order by SOURCE_NAME M 

'Dispiav Table 

GE.MS_Page=l 

GE.DisplayEditTable 

myObjEdiUnit l_N r ame, I_editProc,l_addProc, l_this_fite 
myObjEdiLdefineComplex( 1 0) 
myObjEditsetQuery(myQ) 
myObjEditSelectTable 



</body> 
</html> 



Integrated Marketing Technology 



9/27/00 2:22 PM 



Page 66 of 200 



IMT Subscription Marketing Reporting System 



adminindex.asp 

<%@ Language^VBScnpi %> 

<!-- ^include file=\Vsupport/globalj;onstants.asp" -> 

<!- #include fi[e="„/support/dbConnection.asp" -> 

<!- #inciude file^.Vsupport/adoUtiis.asp" -> 

<html> 

<head> 

<tit!e>IMT Network</tit]e> 
</head> 

<body bgcoloF="99CCFF background^. 7graphics/adminhorzsiice.gir text="#000000" \\nk= n 6699CC" margmwidth^O" 
marginheight^O'' leftmargin^O" topmargin-"0"> 
<form method=*posf action id= w formr name-'formr> 
<tab!e width= M 660 M border= H 0" cellspacings" 10" ceIlpadding="0 M > 
<tr> 

<td width="162*> <br> 
<form METHOD^POST ACTION== n AdminIndex.asp M id="form2" name= H form2"> 
<% 

'dim src 

'src = Request.Form("Go") 
dim v_state, v_tmp, v_name 
dim strTable, strField, strWhere 

v_state = Request.Foni3("state") 



if v_tmp o "0" and v_unp > " " then 
if v_state « "PRODUCT GROUP* THEN 
v_state = "PRODUCT* 
Session("TA£LE") = " CORPJNFO " 
Scssion("FlELD") - m PRODUCTJD, TITLE_NAME" 
SessionfWHERE") = " GRP_NAME - '" & vjmp & Mm 
' Response. Write "<mput type- Hidden' name- GRP' value- " & vjmp & "*> " 
eiseif v_state = "PRODUCT THEN 
vjtate = "SOURCE CATEGORY" 
Session("TABLE") - " SRC_CATEGORY * 
Session("FIELD") - * SRC_CAT_NAME " 
Session("WHERE") = " PRODUCTJD = " & vjmp & " " 
Session( M PRODUCTJD") = vjmp 
end if 
else 
' default case 

vjtate = M PRODUCT GROUP* 
v_name ^"GRP" 

SessionfTABLE") = " CORPJNFO * 
Session( M FIELD") = " distinct GRP_NAME " 
Session("WHERE H )«*" 



'ShowRecords objRST. *HI dude" 
end if 

strTable - Session("TABLE") 

strField = ScssionfFIELD") 

strWhere = Session("WHERE") 

1 Response.Write (strTable & strField & strWhere) 

strSQL = "select " & strField & * from " & strTable * & " where " '& strWhere 
ifstrWhere>""THEN 
strSQL = strSQL & " where " & strWhere 
end if 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showListBox objRST, *cmb", false, "SELECT " & v_state , false 
objRST.cIose 

'Response.Write "<input type= , Hidden t name='" & v_name & valued" & v_state & m > 
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%> 
</td> 

<td rowspan- V width- '468" vaIign= rt top"> 
<div align-"center"> 
<p> </p> 
<p> </p> 
</div> 
</td> 
</tr> 
<tr> 

<td width-" \62"> 
<div align="right"> 

<input type="image" src=^/graphics/smailgo.gif width="83 M height= K 30 w name^Go" M^Go"- 

<Jdiv> 
</td> 
</tr> 
<% 

vj>rp = RequesLFormfGRP") 

ifv_state = PRODUCT JjROUP" THEN 



%> 

<div aiign= H right ,, ximg src^Vgraphics/showtablenow.gif* width="87" height 35 " 14*> 

</div> 
</td> 
</tr> 
<tr> 

<td width=**162"> 

<tabie width= M I9(T border^"(T cellspacing="CT cel!padding="(T align= M center w > 
<tr> 

<td height="25 M > 

<div align="right*ximg src= M „/graphics/presetect2iineslft.gir width="76 w height= <, 26 w x/div> 
</td> 

<td height="25"> 

<div align= w lefTximg src=\./graphics/preselect2linesrt.gif width^e* height= r *26' , x/div> 

</td> 
</tr> 
<tr> 

<td> 

<dtv aIign= M right M xfont size=M" face- ' Verdana, Arial, Helvetica, sans-serif >Product 
Group: </fontx/div> 
</td> 

<tdxfont size-M" face^Verdana, Arial, Helvetica, sans-serirxb><variable</bx/font>></td> 
</tr> 
<tr> 

<td> 

<div align^righfxfont size=M" face="Verdana, Arial, Helvetica, sans-serir>Product:</font> 
</div> 
</td> 

<tdxfontsize="-4" face= H Verdana, Arial, Helvetica, sans-serirxb><variabIe<ybx/font>></td> 
</tr> 
<tr> 

<td> 

<div a!ign="right"xfont size= M -4* face="Verdana, Arial, Helvetica, sans-serif '>Source 
Category:</font> </div> 
</td> 

<tdxf 0 nt size^-4* face^" Verdana, Arial, Helvetica, sans-serirxb><variab!e</bx/font>></td> 
</tr> 
<tr> 

<td> 

<div aIign="right M xfont size^M" face- 'Verdana, Arial, Helvetica, sans-serif '>Source:</font> 
</div> 
</td> 

<tdxfont size=M" face^Verdana, Arial, Helvetica, sans-serifxb><variable</bx/font>></td> 
</tr> 
<tr> 
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<td> 

<div align^righfxfont size=M" face- 'Verdana, Anal, Helvetica, sans-serif Campaign :</font> 
</div> 
</td> 

<tdxfont size-M M face=" Verdana, Arial, Helvetica, sans-serifxb>&[t;variabIe</bx/font>></td> 
</tr> 
<tr> 

<td> </td> 
<td> </td> 
</tr> 
</table> 
</td> 
</tr> 
<tr> 

<td widths" 162 M > 

<pximg src= w ../graphics/optionalASUT.gif ' width^S?" height=*73 M x/p> 
<p> 

<seiect name=*SELECT ONE"> 
<option>SELECT ONE</option> 
<option><Variable></option> 
<option><Variab!e></option> 
</select> 
</p> 
</td> 
</tr> 
<tr> 

<td width- rt i62 w > 

<div aIign="right H ximg src= M .Vgraphics/showtablenow.gir width="87" height^" 14"> 
</div> 
</td> 
</tr> 

<%end if%> 

</table> 
</form> 
</body> 
</html> 
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adminindexfogon.asp 

<%@ Language=VBScript %> 

<!- # include flle=^ysuppo^t/giobal_constants.asp ,, -> 

<!- #inctude file^ysupport/dbConnection.asp" -> 

<!- #include fiIe= M ../support/adoUtils.asp M -> 

<% 

dim strName 
dim strPass 

strName « RequestServerVariables( n AUTH_USER n ) 
strPass - RequestServerVariabiesC*AUTH_PASSWORD M ) 
SessionCU") *= strName 
Session^") = strPass 



%> 

<html> 
<head> 

<titie>IMT Network</title> 
</head> 

<frameset rows-^,*" noresize co!s= M * M framebordep=*NCr border= M 0 H framespacing^O^ 
< frame src^adminnavbar.asp" name=*navigatiorT scroiling="NO M noresize frameborder^NO' 
<frame src^weicome.asp" name= n main" scrol!ing=*YES" frameborder^NO^ 

</frameset> 

<noframesxbody bgcolor="#FFFFFF N > 

</bodyx/noframes> 
</html> 
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adminkevs.asp 

<%@ Language^ VBScript %> 
<!-#include file= H .ysupporL / gIobal_constants.asp" -> 
<!- ^include fae^isuprx^dbConnection.asp" -> 
<!- #include fiIe= M Jsupport/adoUtils.asp M -> 
<!- #inctude fiIe= w „/support/srcTab.asp H -> 

<% 

Ijiebug = i 1 set to I if you want to debug this page 



if (Request Form( M display• , )= w 2 ,, _ 

and Request.FormCsetupTab H )o "0" _ 
and Request.Form("senipTab H ) > " *) then 
Response.Redirect(keql>esLFo^mC , setupTab ,, )) 

end if 

if RequestCadd^rthen 
J_AvaiICount = Request.FormCAvailCount ,, ) 
if l_debug- 1 then 

Response. Write l_avaiIcount & "<br> M 

end if 

l_AvailCount = ctng (l_AvailCount) 
for j — 1 to l_availcount 
l_val = Request. Form (^check* & j) 
' Response. Write j& "Work damn it" & l_val & "<br>" 
ifl_val> ,,,, then 

my_rec_id = clng(!_val) 
objCMD ActiveConnection = strSQLOLEDB 

objCNID.CommandText = "sp^Add^Keys" 
objCMD.CommandType = adCmdStoredProc 
ifl_dcbug^ 1 then 

Response. write "rec id " & recjd & "<BR>" 

Rcsponsc.wite"ScssionCSRC CAT_NAME') " & Session(' , SRC_CAT_NAME'') & W <BR>" 
Response.write M SessionCSRCJNDICATOR') "& Session( M SRCJNDICATOR") & H <BR> rt 
Response.write "Session('CAMP NAME*) " & Session(XAMP_NAME") & "<BR>" 
Response. write -ScssionCPANELNAME 1 ) M & Sessionf PANEL_N AME H ) & *<BR>" 

end if 

objCNtD.Parameters.Refresh 
objCN{D.Parameters(I). Value = myjecjd 
objCN*D.Parameters(2).Vaiue = SessionfSRC j:ATJ4AME") 
objCMD.Parameters(3). Value - Session("SOURCE_NAME") 
objCMD.Parameters(4). Value = Session("SRCJNDICATOR") 
objCMD.Parameters(5). Value = SessionfCAMP_NAME fl ) 
objCMD.Parameters(6). Value - SessionCPANEL_NAME M ) 
ifl_debugo 1 then 

Set TempNonSessionVar = objCMD.ExecuteO 

else 

RESPONSE.write "would have executed here<br> " 
end if 

' Response. Write myjecjd & *<br>" 
end if 
next 
end if 

dim!_pos(10) 

'strSQL - 9 select M_prorno Jcey + 1 - '+ ltrim(str(mait_qty)) +• - ' M _ 
'& " + convert(varchar(I2},dt_vaHdJo)) MY JCEY, RECJD " _ 
strSQL = " select full_promo_key MY JCEY, RECJD * _ 
& " from avail Jceys " 

& « where Product Jd « " & session( H PRODUCTJD") 
'& - and sourcejdentifier - - & session( w SRC JNDICATOR") & " " 
ORderby = " Order by " 
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fori" I to 10 
t j>os(i) = Request^ Key Position" & i) 
iflj)os(i)> M " then 
'SQL 

strSQI = strSQL & M and POSITION" & i _ 

& RequestfKeyPosition" & i) & " 
'Order by clause 

runMe = true 

end if 

OrderBy = OrderBy & n Position'' & i & V 
next 

if (RequesLFormCrunMe' 1 ) = M P ) then 

runMe - true 
end if 

Orderby = ORderby & " Full JPromoJcey K 

strSQL = strSQL & " " & OrderBy 
'Response. Write strSql & *<br> H 
if (Request Form( rt display n ) < " ") or (Ij)os(l) < " w )then 

l_pos(l) « SessionCSRCJNDICATOR") 
end if 

•Response. Write *<BR> " & strSQL & "<BR>" 
%> 



<html> 
<head> 

<title>IMT Network</title> 



<script tanguage= rt JavaScript M > 
<!- 

function MM_swapImgRestore() { //v2.0 
if (documentMM_swapimgData != null) 
for(var i=0; i<(document.MM_swaplmgData.Iength-l); i+=2) 
document.MM_swapImgData[i].src ~ document.MM_swapImgData[i-f-l]; 

> 

function MM_preloadImages() { //v2.0 
if (document, images) { 

var imgFiles = MM_preloadImages.arguments; 

if (documentpreloadArray^^nulI) document.preloadArray ;= new ArrayO; 
var i = document.preloadArray.Iength; 

with (document) for (var j=0; j<imgFiles.length; j++) if (imgFiies[j].charAt(0)!= ,, # ,l ){ 
preIoadArray[i] - new Image; 
preloadArray[i++].src = tmgFHes[j]; 

}} 

} 

function MM_swaplmage() { //v2.0 

var i j=0,objStr,obj T swapArray=new Array,oIdArray=document.MM_swapImgData; 
for (H); i < (MM_swapImage.arguments.length-2); i+=3) { 
objStr = MM^swapImage.argumentsKnavigatonappName — *Netscape')?i:i+l]; 
if ((objStr.ind*exOf( , document.layers[')=0 && documentJayers^null) || 

(objStrJndexOiX'documentallO =0 && documentall =null)) 
objStr = , document'+objSU'.substjing(objStj-JasandexOfr/),objStrJength); 
obj = eval(objStr); 
if (obj null) { 
swapArray[j++] - obj; 

swapArray[j++] = (oIdArray==nuil || oldArray[j-l]! ;= obj)?obj.src:otdAnay[j]; 
obj.src - MM swapImage.arguments[i+2]; 
}> 

document.MM_swapImgData = swapArray; //used for restore 

} 

//»> 

</script> 
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</head> 
<body> 



<table width="1253" border=*(T cellspactng= H 10 rt cellpadding= ,, 0 M > 
<tr valign="top"> 
<td width="195 1 ' height="23" valign= M top"> 
<table> 
<tr> 
<td> 

<imgsrc= w ../graphics/adminopselectavaiLgif width=n6(T height= M 23 n align^top^ 

</td> 

</trxtr> 

<form method= M posr action*" AdminKeys.asp" id= M formr name= M formr> 
<td width^^S* rowspan="2" height^ H 3(T valign^top" aiign= M left ,, > 
<div align= M left' , x/div> 

<tabie widths 80* border="0" cellspacing="r cetlpaddmg= M <T aIign="lefT> 
<tr> 
<% i = 0 

fori = 1 to 10 %> 
<td> 

<div aIign="c€nter H > 

<font size=M M face^ Verdana, Arial, Helvetica, sans-serif> 
<b><% Response. Write i %> 
</bx/fontx/div> 
</td> 

<%next %> 
</tr> 
<tr> 

<%fori*ltol0%> 
<td> 

<div align="center"> 

<input type="text M name= M KeyPosition<% Response. Write i %>" size-"! 1 * maxlcngth="2" value="<% Response. Write 
i_pos(i) %> H > 



</div> 
</td> 

<%next %> 
</tr> 
</tab!e> 

</td> 
</tr> 
<tr> </tr> 
<tr> 

<td width*" 195" height="30" valign="top"> 
<div align-"right"> 

<inputtype= H image rt src=*../graphics/smaIlgo.gif width="83" height= w 3<T name="Go" AJt= M Go l 
</div> 
</td> 
</tr> 
<tr> 

<tdwidth= w 195"> 
<% sessionlnfo (6) %> 
<% accesSetupTab %> 

</td> 
</tr> 
<tr> 

</tr> 
</tabte> 
</td> 
</form> 
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<% ' it all starts here %> 

<td rowspan- '7" width=" 1556" valign- 'top"> 
<div align- n center*> 

< P xfont face= w Verdana, Arial, Helvetica, sans-serir color= M #FFFFFF"xbxfontsize= M r> 
</fontx/bx/fontx/p> 
<diva1ign="left"> 

<table width="1548" border="0" cellspacing-^" cellpadding^^ 



<% IF RUNME THEN 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

if (objRST.EOF = true) then 

objRstxlose 

%> 

<tr> 

<td VALIGN=TOP"> 

<table> 

<tr> 

<td width-*^* height=*25 M aiign= H center ,, > 
<FONT COLOR^RED^ 

No Available Keys Meet this Criteria </FONTxAd> 
</trx/tab!e> 
<%eise 
%> 

<tr> 

<td VALIGN-TOP K > 
<table> <% 'Available Keys Table *%> 
<tr> 

<td width="24* height="25" align= ,, center"> </td> 
<td width="24" height="25" align="center"> 

<form method= n post H name= ,, myForm' , > 

<input type^Submit" td="Submitl" name= N Submiti K value-" Assign Keys"> 
<input type=button vaiue^Select All" onCHck="checkAlIO' ,> 
<input type=button vaiue= w Unselect Air onClick^unCheckAllO^ 
<tnput type^hidden" value^T name= H add ,1 > 
<input type="hidden M value="r name^runMe^ 
<% for i = 1 to 10 

if i_pos(i)> •* "then %> 
<input type= M hidden w value= M <%Response. Write Ij)os(i) %>" 
name^"KeyPosition<%Response. Write i %>"> 

<% 
end if 

next %> 

<input type^hidden" value^T name="runMe"> 
</td> 
</tr> 
<tr> 

<td width=*24" height="25" aiign="center*> </td> 
<td width=*"140" height«"25^ <rtd> 
<^trxtr> 

<td width^^" height="25" align^center^ 
<div align^center^ 
<br> 
</div> 
</td> 

<td width-" 140" height="25 M bgcolor= B 003366"> 
<div align="center M > 

<font face="Verdana, Arial, Helvetica, sans-serir co(or= M #FFFFFF ,, xb> 
<fontsize= ,, r> 
AVAILABLE 
KEYS 

</fontx/bx/fontx/div> 
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</td> 
</tr> 



<% 

dim i ' count variable 
N> 

Do While ObjRST.EOF = False 

i = 1 

%> 

<tr> 

<td width-"24" align='*center ,, > 
<div align= w center ,, > 

<input type^checkbox" name= w p_check<%Response.write i%> w value="<% Response.write ObjRST.Fields( tt RECJD") 

%>"> 

</div> 
</td> 

<td widths" 140" bgcoloi="FFFFFF"> 
<font size=M" face-" Verdana, Ariai, Helvetica, sans-serif> 
<% Response.write ObjRSTFieldsCMY JCEY") %> 
</fontx/td> 
</tr> 

<% 

ObjRstmoveNExt 
loop 

objRstxlose %> 

<input type^Hidden'' name^AvailCounf value="<%Response. write i %>"> 

<SCRIPT LANGUAGES JavaScript^ 



<!- Begin 

function checkAHO { 

for (var j = I; j <= <% Response.write i %>; j++) { 
box = eval("document.myFo^m.p_check , ' + j); 
if (box.checked = false) boxxhecked - true; 
} 

} 

function unCheckAHO { 

for (var j = l;j <=<% Response.write i %>; j++) { 
box = eval("document.myForm.p_check" + j); 
if (boxxhecked = true) boxxhecked = false; 
} 

} 

// End -> 
</script> 



</tab!e> 

</td> 
</form> 

<% end if 

end if %> 

<tdVAUGN*"TOP"> 
<table> <% 'Assigned Keys Table '%> 
<tr> 



<td width="75" height= M 25"> </td> 
<td width^25 M height= H 25"> </td> 
<td height="25 rt colspan^*^ 
<div align="lcft"> 
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<font face= rt Verdana, Arial, Helvetica, sans-serif* 

<font size=*T'x% REsponse.write Session( H PANEL_NAME") 

PANEL / ASSIGNED KEYS 
</fontx/bx/fontx/div> 



<td width="75 w height=*25"> </td> 
<td width="25 w height= M 25 ,, > </td> 
<td bgcoIor="0G3366" height^ M 25 H width-* 140"> 
<div aHgn="center"xfont face^="Verdana, Arial, Helvetica, sans-serif 

KEY </fontx/bx/fontx/div> 
</td> 

<td bgcolor= w 003366 w height= M 25 M width= tt 210" align='*center"> 
<div align^center^xfont face^" Verdana, Arial, Helvetica, sans-serif 

DESCRIPTION </fontx/bx/fontx/div> 
</td> 

<td bgcolor= ,, 003366" height= M 25 M width="77"> 
<div align= n center"xfont face=" Verdana, Arial, Helvetica, sans-serif 

QTY </fontx/bx/fontx/div> 
</td> 

<td bgcolor= w 003366" heigjit= ,, 25 w width-" 119"> 
<div align ;=,, center"xfont face=" Verdana, Arial, Helvetica, sans-serif 

QTY OVERRIDE</fontx/bx/fcntX/div> 
</td> 

<td bgco[or=' , 003366 ,, height-*25* width="238"> 
<div align : =' , center"xfont face=" Verdana, Arial, Helvetica, sans-serif 
color= H #FFFFFF M xbxfont size=" 1 w >LIST</fontx/bx/fontx/div> 

</td> 

<td bgcolor= M 003366" heights" width«"56"> 
<div align="center M xfont face=" Verdana, Arial, Helvetica, sans-serif 

color="#FFFFFF"xbxfont size=" I ">LIST 

CPM</fontx/bx/font> </div> 
</td> 

<td bgcolor="003366" height^S" width="175"> 
<div align=*center"xfont face-" Verdana, Arial, Helvetica, sans-serif 

coIop =M #FFFFFF"xbxfont size=" I "xnobr>EXPENSE 

SET </fontx/bx/fontx/div> 
</td> 

<td bgcolor= H 003366" height-^" width-" 175"> 
<div aiign=*center M xfont face="Verdana, Arial, Helvetica, sans-serif 
color="#FFFFFF"xbxfont size-" I "xnobr>RE VENUE 

SET </fontx/bx/fontx/div> 
</td> 
</tr> 
<% 

StrSQL - "select FULL__PROMOJCEY, P_KEY_DESCR, KEY_MAIL_QTY, - _ 
& " MAIL_QTY OVERRIDE, LIST NAME, LIST COST_ROLLOUTCPM, E_SET NAME, " 
& " RJSETJNAME, KEYS.REC JD~REC_JD " _ " 

& " from keys,list_names where keys.productjd-"& SessionfPRODUCTJD'*) _ 

& ** and keys.campjiame - w & Session("CAMP_NAME") & " 

& " and keys.sourcejiame = m & SessionCSOURCE.NAME") & *" " 

& M and keys.panel_name=' M & Session(" PANEL_N AME") & M * " _ 

& * and keys,src_cat_name- w & SessionCSRC^CAT^NAME-) & m " _ 

& " and keys,product_id *= list_names.productJd M _ 

& " and keys.list_id *= list_names.rec_id " _ 

& " Order by fulljjromo_key * 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
' count variable 
i-0 

Do While ObjRST.EOF = False 
i-i+1 



color="#FFFFFF"xb> 
%> 

</td> 
</tr> 
<tr> 

coIor="#FFFFFF"xbxfontsize= tt r>PROMOTION 
color= w #FFFFFF w xbxfont size-" I *>KEY 
color="#FFFFFF"xbxfcnt size-" i ">MAIL 
color="#FFFFFF"xbxfont size=Txnobr>MAIL 
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%> 



<tr> 

<%if(i = l)then %> 

<td width="75 M rowspan="3" align^center 1 ^ 

<div align="center"x/div> 

<div align="center , 'xnobr> 

<font face=*Verdana, Arial, Helvetica, sans-serif xfont size= n P> 
</fontx/fontx/div> 
<div aItgn= B center"> 
<br> 
</font> 
</div> 
</td> 

<% clseif 0= 2 or i = 3) then %> 

<%else %> 
<td>   </td> 

<%end if%> 

<td width= n 25*> 

<div aiign- w right"> 

<a href="editKeys.asp?2=<%Response. write objRST.fields("REC_!D") %>"> 

<img src=Vgraphics/editarrow.gif width-^" height="I I H > 

</a> 

</div> 
</td> 

<td widths" 140" bgcolor="# FFFFFF" height 15"> 

<font size="-4" face-" Verdana, Arial, Helvetica, sans-serif > 

<% Response, write ObjRST.FieldsfFULL_PROMOJCEY") %> 

</fontx/td> 

<td width— "2 1 0" bgcolor-"*' FFFFFF" height="15*> 
<font size-M" face=" Verdana, Arial, Helvetica, sans-serif > 
<% Response, write ObjRST.Fieids("P_KEY_DESCR") %> 
</fontx/td> 

<td width=*77 rt bgcoIor= M #FFFFFF" height= H 15"> 
<font size-M" face^ Verdana, Arial, Helvetica, sans-serir> 
<% Response.write ObjRST.Fieids("KEY_MAIL_QTY") %> 
</fontx/td> 

<td width="l I9 tt bgcolor="#FFFFFF" height 1 5 "> 

<font size^M* face=*Verdana, Arial, Helvetica, sans-serif > 

<% Response.write ObjRST.Fields("MAlL_QTY_OVERRIDE") %> 

</fontxytd> 

<td width="238* bgcolor^FFFFFF" height^ 15"> 

<font size^M" face 3 " Verdana, Arial, Helvetica, sans-serif > 

<% Response.write ObjRST.FieldsCLIST^NAME") %> 

</font> 

</td> 

<td width-'W bgcoior^FFFFFF* height-"^ 

<font size^M" face-*Verdana, Arial, Helvetica, sans-serif > 

<% Response.write ObjRST.FieldsCLIST_COST„ROLLOUT,CPM tt ) %> 

</font> 

</td> 

<td widths" 175" bgcotor=**# FFFFFF" height=-I5"> 

<font size-M" face^Verdana, Arial, Helvetica, sans-serif > 

<% Response.write ObjRST.Fietd5CE_SET_NAME w ) %> 

</font> 

</td> 

<td width^HS" bgcotor-"#FFFFFF rt height="15"> 

<font size^M" face-" Verdana, Arial, Helvetica, sans-serif > 

<% Response.write ObjRST.Fields("R_SET_NAME") %> 

</font> 

</td> 
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</tr> 
<% 

objRST.moveNext 
loop %> 
</tab!e> 
</td> 
</tr> 



</tabIe> 
</div> 

<p> </p> 
</div> 
</td> 

<% * it ail ends here %> 
</tr> 

</table> 

</form> 
</body> 

</html> 
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adminkeysleftasp 



<%@ Language=VBScript %> 

<!- # include file=Vsupport/giobaI_constants.asp'' -> 

<t- # include file=**. ./support/dbConnection.asp" -> 

<1- #indude file=".7support/adoUtils.asp n -> 

<!- # include ftle= M ../support/srcTab.asp w -> 

<!~#include fiIe=\7support/keys.asp" -> 

<% checkSessionVars(6) %> 

<html> 
<head> 
<script> 

function refreshQ{ 
var kevin - parent. frames.Right ; 
kevtnJocation.href = "adminKeysRightasp" ; 
} 

</script> 

<title>IMT Network</titie> 
</head> 



<% 

l_debug = 0 

L_TH1S_FILE « "adminlCeysLeft.asp'' 
' t_AvaiICount = Request. Form(" A VA1LCOUNT") 
' Response. Write "availCount - * & Ijivailcount & "<bf>" 

'on error resume next 

if RequestFormCADD^-Tthen 
'Response. Write t_avaiicount & "<br>" 
l_AvattCount = Request FormCAvailCounf ) 
'Response. Write I_avaiIcount & "<br>" 
l_AvaiICount = clng (l_AvaitCount) 
server.ScriptTimeout - 5000000 
for j = 1 to l_avaiicount 
l_val = Request.Form ("p_check" & j) 
' if l_debug= I then 

' Response. Write j& "Work damn it" & l_val & "<br>" 
' end if 

ifl_val>*"then 

my_rec_jd - clng(l_vai) 
objCMD.ActiveConnection * strSQLOLEDB_ait 



objCMD.CommandText = "sp_AddJCeys H 
objCMD.CommandType = adCmdStoredProc 
objCMD.Parameters.Refresh 
ifl_debug= 1 then 
Response. Write my_rec id & "<br>" 
Response. Write Session( tt SRC_CAT_NAME H )& "<bf>" 
Response. Write Session("SOURCE_NAME*)& "<bi>" 
Response.Write SessionCSRCJNDICATOR")& "<bt>" 
Response. Write SessionCCAMP__NAME w ) & "<br>" 
Response.Write Session("PANEL_NAME") & *<br>" 
end if 

objCMD.Parameters(l).Value - my_rec_id 
objCMD.Parameters(2).Value « Session("SRC_CATNAME") 
objCMD.Parameters(3). Value = Session( H SOURCE_NAME M ) 
objCMD.Parameters(4). Value - Session( M SRCJNDICATOR H ) 
objCMD.Parameters(5). Value = Session( H CAMP_NAME") 
objCMD.Parameters(6). Value = Session( H PANEL_NAME M ) 
ifl_debugo 1 then 

Set TempNonSessionVar = objCMD.ExecuteQ 



else 
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Response.write "I would have executed here, pai <br> but you're debugging. Turn 
debug off in the source code to resume normal operations<br>*; 
end if 

end if 
next 



end if 
%> 

<% dim l_query 
diml_pos(10) 
dim l_dispfay 

l_disptay = Request.FormrDISPLAY 1 ') 
l_query - " select full _prorno_key MYJCEY, RECJD ' 
& " from avail_keys " _ 

& " where Product id = " & session("PRODUCTJD N ) 



t_query = " select full_promo_key MYJCEY, RECJD * _ 
& " from avail Jceys " _ 

& - where Product Jd = " & session("PRODUCT_ID M ) 
f & " and sourcejdentifier - & session("SRCJNDICATOR") & m m 
ORderby^" Order by" 

fori* 1 to 10 

i_pos(i) = trim(RequesLform( fl KeyPosition" & i)) 

if Ijws(a) ^ u ^ n = J ^ uery & „ and pqsujoj^- & i & - = - & trim(RequestFomlCKeyPosition l, & i)) & " 

l_query - Lqucry & " and substring(fuU_promo_key/ & i & \I) 88 ,M & I_pos(i) & - " 
run Me = true 

end if 

1 0rderBy = OrderBy & " Position" & i & " 

next 



if (Request. FormCrunMe n ) - T ) then 

runMe - true 
end if 

Orderby = ORderby & " Full_Promo_key " 

if(trim(l_pos(l))< M,, )then 

I _pos(l) = SessionCSRC_lNDlCATOR-) 
l_query = l_query & " and POSITION 1" _ 
&"«"•& trim( ljws(l)) & m " 

end if 

Lquery - l_query & " " & OrderBy 



<% if Request( ,, add ,, >= ,, r then %> 

<body bgcolor= M #99CCFF H vlmk=' , 000000 ,, link= H 003366" 
marginwidth= w <T marginhcighc="0" leftmargin="(T topmargin«"0" 
onLoad= ,, refreshO; ,,> 

<% else %> 

<body bgcoIor= t, #99CCFF M vlinfc^OOOOOO" link= ,, 003366 ,, 
marginwidth^O" marginheight= M 0" leftmargin^O" topmargin="<r > 
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<% 
end if 
%> 



<table width=*185" ceilpadding="2 M > 
<tr> 

<td coIspan-"3" height="39" width-" 152 M > 

<% keySearchBoxes l_pos,"adminKeysLeftasp", false %> 

<tr valign^top'' aIign-"right M > 
<td colspan="4"> 

<div align= M left"xbr> 

</div> 

<div aIign= H left M x/div> 
<p> 

<form method="post" action-"<% Response. Write L_THIS_FILE %>" name="myForm" id-form 1> 

<%for i=ltolO%> 
^nputtype^HIDDENr 

name= H KeyPosition<% Response. Write i %>" 

vaiue= M <% Response.write l_pos(i) %>"> 
<% next 
if! display = "P then %> 

^"puttype^IMAGE" sre=".7graphics/assignkcysl222.gir width*'9I" hcight="28" border="(T> 
<%end if%> 
</p> 
</td> 
</tr> 



<tr vaiign-"top ,, > 

<td colspan-M" align="left"> <br> 

<input type= w HIDDEN" name— "ADD" valued "> 

<inputtype="HIDDEN" name-" DISPLAY" value="l"> 

<% 

ifl_dispiay-T then 
'Response. Write l_query & "<BR>" 
AvailKeysTable(l_query) 
end if %> 



</td> 
</tr> 
</tabte> 
</form> 
</body> 
</html> 
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adminkevsrightasp 

<%@ Language=VBScript %> 

<!- # include file= M „/support/global_constants.asp M -> 

<!- # include file=".Vsupport/dbConnection.asp H -> 

<t- #inctude file=\Ysupport/keys.asp" -> 

<!- #inciude file^Ysupport/JavaScripts.asp" «> 

<!- # include fiIe="../support/srcTab.asp tt -> 

<!- ^include file^ysupport/adoutils.asp* -> 

<[- # include fite= H ../support/objEdit.asp H -> 

<% 



L_THIS_FILE = "adminKeysRightasp" 
response.expires = 0 
response.expiresabsolute = NowO - 1 
response.addHeader "pragma M ,"nocache M 
response.addHeader "cache-control "/private" 
Response.CacheControl - "no-cache" 
if Request. Form(" ACTION") - "PANEL" then 

l_panel = RequestForm( H cmb w ) 

Session( M PANEL_NAME w ) - l_panel 

end if 

'Dim vars 

'Common 
dim recordcount 
dim checked_records 
dim t 

dim WhereCIause 
dim recordidlist 

•Edit vars 
dim MSE 

'Group Edit vars 
dim PGE 
dim index 
dim recordid 

'Edit 

if RequesLform("editbutton*) > " " then 

'Setup first page, then let edit handle the rest 

'init obj 

set MSE « new objGroupEdit 
'Get records 

recordcount - Request.form("p_RecCount*) 
toomanyrecords - 0 

'response.write("There are " & cstr(recordcount) & " records <br>") 

checked_records - 0 
for i = 1 to recordcount 

recordid - Requestform( w P_check" & cstr(i)) 
if recordid > " " and len(recordidlist) > 0 then 

checked_records - checked_records + 1 
if checked_records > 19 then 
toomanyrecords - I 

else 

recordidlist - recordidlist + V + cstr(recordid) 

end if 

elseif recordid > *" then ' don't add comma first time 
recordidlist - cstr(recordid) 

end if 

next'i 
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SessionfRECORDIDLlST) = recordidlist 
sesstonfpage") = 1 

Sessionftoomanyrecords") = toomanyrecords 

if recordidlist > " * then response. redirect( M msjiditkey.asp?pg^r) 

end if 

'Post/Delete Group Edit Info 

if Request. formfGroupEdit") > " " or requestformCdeletebutton") > " " then 

•response. write ("Hello World!®!!!!!!") 
response. writeC *) 
'init obj 

set PGE = new objPostGroupEdit 
PGEinit 

'Get records 

recordcount ~ Request. form( H p_RecCount M ) 

'response. write( H <br>There are " & cstr(recordcount) & N records <br>") 

for i = 1 to recordcount 

recordid = Request. form( H P_check" & cstr(i)) 
if recordid > M " then PGE.AddRecord recordid 
f response.write(recordid & "<br>") 

next "i 

'Set Stored Procedure info 
PGE.ClassType = "Group Edit" 
PGE.SP « ,, sp_editJcey ,, 
PGE,TabieName = "keys" 

if Request.form( M GroupEdit M ) > " " then PGE.IsDelete = 0 

if requcsLformCddctebutton B ) > " " then PGE.IsDelete = I 

PGE.AddParam "pjceyjlescr" 

PGE.AddParam "mail_qty_override w 

PGE.AddParam "newstand_saie K 

PGE.AddParam "newstand_sale_marker" 

PGE.AddParam "Hst_cat_name" 

PGE.AddParam "listjiame" 

PGE.AddParam "list_segment_name'' 

PGE.AddParam M Iist_cost_actuaI_cpm" 

PGE.AddParam N list_cost_basis M 

PGE.AddParam M list_costJactor" 

PGE.AddParam M merge_purge_qty' , 

PGE.AddParam "e_set_name" 

PGE.AddParam "r_set_name M 

PGE.AddParam "panel^kg" 

PGE.AddParam "subtotal Jlag" 

PGE.AddParam tt optional_effort_id" 

PGE.AddParam "rec_id" 

PGE.AddParam "IsDelete" 

objCMD.ActiveConnection = strSQLOLEDB 

objCMD.CommandText « "sp_edit_key* 

objCMD.CommandType * adCmdStoredProc 

objCMD.parameters.refresh 

PGE.PostGroupEditsBySP 

end if 
%> 

<html> 
<head> 

<META HTTP-EQUIV- M Expires" CONTENT= M Mon, 01 Jan 1990 12:00:00 GMT> 
<meta http-equiv="pragma" content= rt no-cache M > 
<meta http-equiv="cache-contror content= w no-cache t, > 
<title>IMT Network</title> 
<% LorieScripts %> 



</head> 

<body bgcolor="#99CCFF M vlink="000000" imk= M 003366" 
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onLoad="N^j)rcloadImagesC7graphics/edittablerol222.gif, ^94589922603 

*#945899269583T> 

<br><br> 

<form method="post" action="<% Response. Write L_THIS_FILE %>" name-form 1 id=forml> 
<input rype=**HIDDEN** name=" ACTION" VALUE="PANEL"> 
<table width="2500" ceUpadding= ,, 2"> 
<% prevSeiections (6) %> 



<tr vallgn= n top"> 

<tdxfont size-M* face= M Verdana, Arial, Helvetica, sans-serif > 

Change Panel<br> 

</font> 

<% 

strSQL - "select PANEL_NAME from PANELS where " 
& " grp_name = - & ScssionfGRP NAME") & " m 
& " and PRODUCT JD=>* & Session( ,, PRODUCTJD N ) & _ 
& " and src_cat_name = '"& SessionCSRC.CATNAME") & 
& " and souTcejnamc - m & Session("SOURCE_NAME") & 
& B and Camp_name = '"& SessionCCAMP_NAME w ) & m " 



objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

showQuoyListBox objRST, -cmb"^, "SELECT PANEL", SessionCPANEL_NAME") 
objRST.close 
%> 

<input type=" IMAGE" namcF"go" valued-go" src^Jgraphics/go 1222.gif 
WIDTH- M 33" HEIGHT-** 16" BORDER=0> 

</td> 
</tr> 
</form> 
</table> 

<% 

'Group Edit info 

set GE * new objGroupEdit 
GE.init 

GE. action = "adminkeysrightasp" 
GE.RowCount = 1 

'Group Edit Show/Hide button 

if Requestform( N SHOWGROUPE0IT") > ** ** then 

%> <form method^post" action-* 1 <%Response. Write l_this_file %>" id="hidegefomr 

name=*htdegeform"> 

<table> 

<tr> 

<td width= ;,, 20*'>&nbsp</td> 
<tdxinput type= w submir value^Hide Group Edit" 
name=**HIDEGROUPEDIT" action="form.submit ,, x/td> 

</tr> 

</tabte> 
</form> 

<% 

GE.Show^True 

else 

%> <form method= M posf action-" <%Response. Write ljthis_file %>" id="showgefonTr 
name^showgeform*^ 

<table> 

<tr> 

<td width="20 H >&nbsp</td> 
<tdxinput type="submit" value=*Show Group Edit** 
name= M SHOWGROUPEDIT"action= K form.submit* , x/td> 

</tr> 

</tab!e> 
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</form> 

<br> <form method^POST" action-" <°/<f=act\on%>" name-"Group_EcItt_Fornr cellpadding= H 3" 

cellspacing ="3"> 

<% 

GE.Show = False 

end if 

'Key 

'index - GE.AddItem 

'GEfteldType index, "NOTAPARAMETER" 
'GE.ColumnHeader index, "KEY" 

'Key Description 
index ~ GE.AddItem 
GEfieldType index, "TEXT 11 
GE.ColumnHeader index, "KEY DESCRIPTION" 

TVfail Qty 

'index - GE.AddItem 
'GEfieldType index, "LABEL" 
'GE.ColumnHeader index, "MAIL QTY" 

'Mail Qty OverRide / Draw 
index - GE .Addltem 
GEfieldtype index, TEXT" 

GE.ColumnHeader index, "MAIL QTY OVERRIDE / DRAW 

*Newsstand Sale 

index = GE.AddItem 

GE.fieidtype index, 'TEXT* 

GE.ColumnHeader index, "NEWSSTAND SALE" 

Response Based on Sale or Draw (Newstand Sale Marker) 
index - GE.AddItem 
GEtleldtype index, "SELECTLOV" 

GEColumnHcadcr index, "RESPONSE BASED ON SALE (Y), DRAW (N)" 
GE.strSQL index, "N,Y" 

'List Category 
index = GE.AddItem 
GEfieldtype index, "SELECT*' 
GE.ColumnHeader index, "LIST CATEGORY" 

GE.strSQL index, "SELECT Iist_cat__name from listjats where product Jd = " & SessionfPRODUCTJD") & 
" order by list_cat_name" 

'List Name 

index - GE.AddItem 

GEfieldtype index, "SELECT" 

GE,ColurnnHeader index, "LIST NAME" 

GEstrSQL index, "SELECT f ist_name from Hst_names where productjd * * & Session("PRODUCT_lD") & " 

order by list_name" 

'List Segment 
index = GE.AddItem 
GEfieidtype index, "SELECT" 
GE.ColumnHeader index, "LIST SEGMENT" 

GE.strSQL index, "SELECT list_segment_name from list_segments where productjd - " & 
SessionCPRODUCTJD") & " order by list w segmenmame'' 

'ListCPM 

index = GE. Addltem 
GEfieldType index, TEXT" 
GE.ColumnHeader index, "LIST CPM" 

'List Cost Basis 
index = GE.AddItem 
GEfieldType index, "SELECTLOV* 
GE.ColumnHeader index, "LIST COST BASIS" 
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GE.strSQL index, "Mail Qty, Merge Purge Qty" 

'List Cost Factor 
index = GE.Addltem 
GE.fie!dType index, "TEXT" 
GECoIumnHeader index, "LIST COST FACTOR" 

'Merge Purge Qty 

index - GE- Addltem 

GE.fieldType index, "TEXT" 

GE.ColumnHeader index, "MERGE PURGE QTY" 

'Expense Set 
index = GE.Addltem 
GEfieidtype index, "SELECT" 
GECoIumnHeader index, "EXPENSE SET" 

GE.strSQL index, "SELECT e_set__name from expense_sets where product jd = " & Session("PRODUCT_ID") 
& " order by e_set_name" 

'Revenue Set 
index = GE.Addltem 
GEfieidtype index, "SELECT" 
GE.ColumnHeader index, "REVENUE SET" 

GE.strSQL index, "SELECT r_set_name from revenue_sets where product Jd = " & SessionCPRODUCTJD") 
& " order by r_set_name" 

'Package 

index = GE.Addltem 
GEfieidtype index, "SELECT" 
GECoIumnHeader index, "PACKAGE" 

GEstrSQL index, "SELECT package_name from prod_panel_package where productjd * " & 
SessionfPRODUCTJD") & " order by package_name" 

'Subtotal Flag 
index = GE.Addltem 
GEfieldtype index, "SELECTLOV" 
GEcolumnHeader index, "SUBTOTAL FLAG" 
GEstrSQL index, "True.False" 

'Optional Effort ID 

index - GE.Addltem 

GE.fieldType index, "TEXT" 

GE.ColumnHeader index, "OPTIONAL EFFORT ID" 

'Page 

GE.MS_Page«l 

'if not(RecCount>=l) then RecCount= i 
'GEMSJTable - "panels" 

'GEMS WhereCIause - "where grp_name = '"& Session("GRP_NAME") & "'" _ 

& " and PRODUCT ID=" & Session("PRODUCT_ID") & _ 
& " and src_cat_nam~e - '" & Session("SRC JTAT.NAME") & "" 

& H and source_name = '" & Session("SOURCE_NAME") & "'" 

& " and Camp_name = '" & Session("CAMP_NAME") & 
*GEMS_OrderBy = " Order by SOURCE_NAME " 

'Display Table 

GEMS_Page-l 

GEDisplayEditTabie 



<tab!e width="2500" ce!Ipadding="2"> 
<tr vaIign="top"> 
<tdxBR> 
</td> 
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</tr> 

<tr vaIign="top"> 
<td colspan= n 4 N aligns" Ieft"> 
<%keysTabte%> 
</td> 
</tr> 
</table> 
</form> 
</body> 
</html> 
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adminsearch.asp 

<%@ Language=VBScript %> 

<i- # include fde^\./support/global_constants.asp H -> 
<f- # include flle=^Vsuppo^t/dbConnection.asp ,, -> 
<!- # include file^" Jsupport/adoUtils.asp" -> 
<!- #include fite="../support/srcTab.asp" -> 
<!- ^include file="../support/JavaScripts.asp M -> 
<>- #include flle= , \./support/navigation.asp" -> 

<% JSImageFunctions %> 

<HTML> 
<HEAD> 

<% DisplayIMTFrameset%> 

<META NAME-"GENERATOR" Content="Microsoft Visual Studio 6.0 M > 

<TITLE> IMT Admin Search </title> 

</HEAD> 

<BODY marginwidth=0 !eftmargin=0 rnargmheight-0 topmargin=0 bgcolor^TOCCFF" vlmk="#003366" lmk="#003366 M > 
<% LorieScripts %> 

<form method= M post w action^" AdmmSearch.asp ,, id=forml name=forml> 
<% 

' Response. Write SESSIONCPID^PHRASE") & "<BR> M 
' our local variables 

p_sel = RequestFormCP_SEL") 

'p_grp = Request.Formfp jgrp") 

pjitle - Request.FormCPjnTLE") 

p_src_cat = RequestFormC^SCR j:AT) 

p_source = Request.FormfP_SOURCE H ) 

p_camp = Request. ForrnCT_CAMP") 

p_Panei = Request. Form( ,, P_PANEL") 
'if pjgrp < " * then 
* P_£rp = "% H 
'end if 

if pjitle < * " or pjitle= "0" then 
pjitle = M % M 
end if 

if p_src_cat < " " or p_src_cat = "0" then 
p_src_cat - 
end if 

if p_Source < n " or p_Source = H 0 H then 
p_Source^ M %' , 
end if 

if p_camp < " " then 
p_camp = "%" 
end if 

if p_panet < " H then 

p j>anel = H %" 
end if 

if(qu^ H ")then 

qu = w % n 

end if 
%> 

<table> 

<tr> <tr valign =,, top"> 

<tdxtabie> 
<tr> 

<td bgcoIo^="003366 ,, height= H 20 w width^ 140" align= w center M > 
<div align-"center"> 

<font face= M Verdana, Ariai, Helvetica, sans-serif color="#FFFFFF"> 
<bxfont size- H l"> 
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TITLE 

</fontx/b></fontx/div></td> 

<TD align="LEFT> 
<% 

strSQL = "select DISTINCT TITLE_NAME from CORPJNFO WHERE " & Session("PID_PHRASE") 
•Response. Write "Pid phrase " & Session("PID_PHRASE") 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

showQueryListBox objRST, *'P JTTLE",6, "SELECT TITLE", pjitle 

objRST.close 

%> 

</td> 
</tr> 
<tr> 

<td bgco!oF="003366" height="20" width="14CT align^'center^ 
<div align-"center"> 

<font face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 

<bxfont size="r> 
SOURCE CATEGORY 
</fontx/bx/fontx/div></td> 
<TD align="LEFT"> 

<% 

strSQL = "select DISTINCT SRC_CAT_NAME from SRC_CATEGORY" 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

showQueryListBox objRST, "P_SCR_CAT",6, "SELECT SRC CAT, p_src_cat 

objRSTxlose 
%> 

</td> 
</tr> 
<tr> 

<td bgcolor="003366" height="2(T widths" 140" atign="center"> 
<div align-"center"> 

<font face="Verdana, Arial, Helvetica, sans-serif coIor="#FFFFFF"> 
<bxfont size=" I"> 

SOURCE 

</fontx/bx/fontx/divX/td> 
<TD align="LEFT"> 

<% 

strSQL = "select DISTINCT SOURCE_NAME from SOURCE" 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

showQueryListBox objRST, "P_SOURCE",6, "SELECT SOURCE", pJSource 

objRSTxlose 
%> 
</td> 
</tr> 
<tr> 

<td bgcolor="003366" height="20 H width="140" align="center"> 
<div align= ,, center ,, > 

<fontface=" Verdana, Arial, Helvetica, sans-serif color=*#FFFFFF"> 
<bxfcnt size="l"> 
CAMPAIGN 

</fontx/bx/fontx/divx/td> 

<TD align="LEFT"xinput typ<r="TEXT" name="P_CAMP" value -<% Response. Write p_camp %>' x/td> 

</tr> 

<tr> 

<td bgcolor="003366" height="20" width="140" align="center"> 
<div align-"center N > 

<font face="Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 
<bxfontsize= H r> 

PANEL 

</fontx/bx/fontX/divx/td> 

<TD altgn^LEFTxinput type="TEXT" name="P_PANEL" value -<% Response. Write p_panel %>' x/td> 

</tr> 

</table> 

</td> 
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</trX/table> 
<br> 

<font face^" Verdana, Arial, Helvetica, sans-serif size="-4 M > 

Break on</font> 

<br> 

<select name="P_SEL"> 
<% 

dim var(6) 



var(lKSOURCE NAME" 
var(2KCAMPAIGN" 
var^KPANEL" 
for i=l to 3 
if (cint(p_sel)=i) then %> 

<option value='<% 

Response. Write i %>' seiected> 

<% 

Response. Write var(i) 
%> 

</option> 
<% 
etse%> 
<option value^^ 
Response.Write i %>*> 
<% 

Response- Write var(i) 
%> 

</option> 
<% 
end if 
next 
%> 
</select> 
< p > 

<input type-'IMAGE Value="UPDATE" Name="UPDATE" 
src="Jgraphics/submitl 222.gif width= n 54* height="i6" border="0"> 

</p> 

</form> 
<% 

ifp_sel>*"then 

SearchResult p_panel, p_camp, p_source, p_src_cat, pjitle, p_sel 

end if 

•Response.Write "query = " & p_sel & " " 
•Response.Write TITLE = " & p Jitle & M 
•Response. Write "SRC CAT - * & p_src_cat & " 
Response. Write "TITLE = " & p_source & M 
Response. Write ^BR^AMP^ M & p_camp & \ " 
•Response. Write "PANEL = " & p_pane! & " M 

1 if sel="SOURCE CATEGORY" then 

'SrcCatSearchResult p_src_cat, p Jitle, p_grp 
•elseif sel -"SOURCE NAME" then 

'SourceSearchResult p_source T p_src_cat, p_title, p_grp 
'elseif sei= M CAMPAIGN" then 

•CampSearchResult p_camp, p_source, p_src_cat, p Jitle, p_grp 
•elseif sel= rt PANEL" then 

'PanelSearchResult p_panel ,p_camp, p_source, p_src_cat, p Jitle, p_grp 



%> 



</BODY> 
</HTML> 
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adminsea rcb2.asp 

<%@ Language^ VBScript %> 

<[- # include file=" Jsupport/global_constants.asp" -> 
<!- #include fne=\ysupport/dbConnection.asp tt -> 
<!- #incfude file- , \./support/adoUtils.asp* ~> 
<!- #include fiIe =, \7support/srcTab.asp M -> 

<HTML> 
<HEAD> 

<META NAME =1, GENERATOR* Content="Microsoft Visual Studio 6.0 W > 

<TTTLE> IMT Admin SEARCH 2</tit!e> 

</HEAD> 

<BODY> 

<form method^post" action^" id=formI name=forml> 

<% 1 our local variables 

sel = Request-FormCSEL*) 

p_grp = RequesLFo^m( ,, p_grp , ') 

pjitle = RequestFormCpJitle") 

p_src_cat = RequestForm( n p_src_cat M ) 

p_source = RequesLForm("p_source") 

pjamp ~ Request.Form(" p_camp") 

p_Panel = Request Form ( M p_paner) 
if p_grp < " " then 

PJ?P = "%" 
end if 

if pjitle then 
pjitle = "% n 
end if 

if p_src_cat< " N then 
p_src_cat = 
end if 

if p_Source < " w then 
p_Source = "% n 
end if 

if p_camp < " " then 
p_camp = 
end if 

if p_panei < " " then 

p_panel = M %" 
end if 

if (qiF 8 "") then 

qu«"%" 

end if 
%> 

<table> 

<trxtd>Product Group</td> 

<tdx input type^TEXT name="pjgrp tt value -'<% Response. Write p_grp %>' x/td> 
</tr> 

<trxtd>Tttle Name</td> 

<tdxinput type="TEXT name="pjitte" value ='<% Response. Write pjitle %>' x/td> 
</tr> 

<trxtd> Source Category </td> 

<tdxinput type=TEXT name="p_src_cat" value -<% Response. Write p_src_cat %>' x/td> 
</tr> 

<trxtd> Source </td> 

<tdxinput type= H TEXT" name= w p jource" value - <% Response.Write p_source %>' x/td> 
</tr> 

<trxtd> Campaign </td> 

<tdxinput type-TEXT name="p_camp" value ='<% Response.Write pjamp %>' x/td> 
</tr> 

<trxtd> Panel </td> 

<tdxinput tvpe^TEXT" name^p j>anel M value -<% Response.Write p_panel %>' x/td> 
</tr> 
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</table> 

<br>Break on<br> 
<select name="S£L"> 

<% 

dim var(6) 

var(0) - "PRODUCT GROUP" 

vara^TrrLENAME" 

var(2)= M SOURCE CATEGORY" 

var(3)="SOURCE NAME" 

var(4)="CAMPAIGN H 

varCSKPANEL" 

for i=0 to 5 

if (sel=var(i)) then 
Response. Write "<option seiected>" & var(i) & "</option>" 

else 

Response.Write "<option>" & var(i) & "</option>" 
end if 
next 
%> 
<se\cct> 
<br> 

<input type="submit" id=subrmtl name=submitl> 
<br> 

</form> 
<% 



Response.Write "qu = " & p_grp & ", " 
Response.Write p_title & ", " 
Response.Write p_src_cat & *. " 
Response.Write p_source & " 
Response.Write p_camp & ", " 
Response.Write p_panel & " " 
Response.Write ", sei= " & Request.Form("SEL") 
if sel - "PRODUCT GROUP" then 
GrpSearchResult p_grp 
elseif sel « "TITLE NAME" then 

ProductSearchResult p_title, p_ J grp 
elseif sel="SOURCE CATEGORY" then 

SrcCatSearchResult p src cat, p title, pjgrp 
elseif sel =*SOURCE NAME" then " 

SourceSearchResult p source, p src_cat, pjtitle, p_grp 
elseif sel="CAMPAIGN" then 

CampSearchResult p_camp, p_source, p_src_cat, p_title, p_grp 
elseif sel="PANEL* then 

PanelSearchResult p_pane! ,p_camp t p_source, p_src_cat, p_title, p_grp 

end if 

%> 

</BODY> 
</HTML> 
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allsetuptabs.asp 

<%@ Language- VBScript %> 
<!-#include file^ysupport/globa^constants.asp" -> 
<!-# include file=\Vsupport/dbConnection.asp" -> 
<!— ^include file=\isupport/adoUtils.asp" -> 
<!~#include file^Vsupport/srcTab.asp" ~> 
<!-#include file=* , .7support/navigation.asp" -> 

<% JSlmageFunctions %> 

<% 

1 Jhis_fite ="ailSetuptabs.asp" 
Session("refer__page") = "allSetupTabs.asp* 
Session("refer_Titie") = "Set up Table Selection Screen" 

if (Request.Form("setupTab")o "0" _ 

and Request.Form("setupTab") > " ") then 

Response.Redirect(RequestForm("setupTab")) 
end if 

mystrSQL ~ "select accessjevel from gateway.dbo.usr_access where login = & Session("U") & "'" & " and product Jd = 
0" & Session("ProductJd") 

objRST.open mystrSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
ifnotobjRST.eofthen 

Session("USR_ACCESS") = objRST(O) 

else 

Session("USR_ACCESS") - "None*' 

end if 

objRST.close 

checkSessionVars(2) 

select case Session("USR_ACCESS") 
case "User" 

CanUseAdmin = "false" 
case "Manager" 

CanUseAdmin = "True* 
case "Supervisor" 

CanUseAdmin - "True" 

case else 

CanUseAdmin ~ "false" 

end select 

if CanUseAdmin ~ "false" then Response. Redirect "NoSetupRights.asp" 

%> 

<HTML> 
<HEAD> 

<% DispIaylMTFrameset %> 

<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> 
</HEAD> 

<BODY marginwidth=0 leftmargin=0 marginheighH) topmargin=0 bgcotor="#99CCFF" vIink= H #003366" link="#003366"> 
<form method="post" action="<%Response. Write l_this_ftle %>" id="form2" name="form2"> 
<% setupTableListBox I Jhisjile %> 

</form> 

<P> </P> 

</BODY> 
</HTML> 



Integrated Marketing Technology 



9/27/00 2:22 PM 



Page 94 of 200 



IMT Subscription Marketing Reporting System 



avaii.asp 

<%@ Language=VBScript %> 

<!— ^include flIe=^Ysuppo^t/gioba^_constants.asp ,, — > 
<!- # include fHe=<./support/dbConnection.asp" -> 
<!- # include file=".ysuppOTt/adoUtiis.asp" -> 
<!- # include fi!e^'\./support/srcTab.asp M -> 
<!~# include file^.Vsupport/keys.asp" -> 
<!- # include f^Ie=^-/suppo^t/navigation.asp ,, -> 

<% JSImageFunctions %> 

<% 

!_this_file = "avaiLasp" 

if not ( sessionfProductJd") > " " ) then 
Response.RedirectC , admin2a.asp?FR= M & i_this_file ) 
end if 
%> 

<html> 
<head> 

<title>IMT Network</titie> 
</head> 



<% 

' l_AvaiICount = RequcsLFofmCAVAILCOUNT") 

' Response. Write "availCount - " & l_avai!count & "<br>" 

'on error resume next 

dim l_query 
dim Ij)os(lO) 
dim l_display 

l_display = Request Form("DIS PLAY") 
l_query - tt select ruli_promo_key M YJCEY, RECJD w 
& " from avail Jceys " _ 

& " where Productjd = " & session ("PRODUCT JD") 



l_query = n select full_promo_key MYJCEY, RECJD " _ 
& " from avail_keys " _ 

& • where Productjd = " & session( H PRODUCTJD M ) 
'& " and source Jdentifier = im & session^SRC JND1CATOR*) & " 
ORdercy^" Order by M 

fori=ltolO 

l_pos(i) = RequestformCKeyPosition" & i) 
ifLpos(i)> M *then 
'SQL 

Lquery = Lquery & " and POSITION" & i 
& Request. Form(" Key Position** & i) & H 

'Order by clause 

runMe = true 

end if 

OrderBy = OrderBy & " Position" & i & " 

next 



if (Request.Fo^m( H ^uruMe' , ) = H I H ) then 
runMe = true 
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end if 

Orderby = ORderby & w Fuil_Promo_key " 

, if(l_pos(l)<* ,,, )then 

Vpos(l) = Session( M SRCJNDICATOR M ) 
I_query - l_query & * and POSITION 1" _ 
& l_pos(l)& Wi " 

end if 

l_query = l_query & H " & OrderBy 



<% if Request( H add")= w r then %> 

<body bgcolor= M #99CCFF" vlink="000000" link= w 003366" 
marginwidth^O" marginheight^O" leftmargin-'O" topmargin^O" 
onLoad^refreshO;*^ 

<% DisplaylMTFrameset %> 
<% else %> 

<body bgcolor- H #99CCFF H viink= M 000000 H Iink= H 003366 w 
marginwidth-"(T marginheight^O" leftma^gin- M 0' , topmargin="(T > 



<% DisplaylMTFrameset %> 

<% 
end if 

%> 



<table width="l85" cellpadding= ,, 2 M > 
<tr> 

<td colspan-T height-^" widths" 1 52"> 
<% IceySearchBoxes l_pos,!_this_file, false %> 

<tr vaIign="top" align^righf > 
<td coIspan- M 4"> 

<div aiign="Ieft"xbr> 

</div> 

<div align= M left"x/div> 
<p> 

</form> 

<form method— "post" action= M <% Response. Write L_THIS_FILE %>" name="myForm" id=forml> 

<%fori=ItoI0%> 
<tnput type-" HIDDEN" 

name="KeyPosition<% Response. Write i %>" 
value="<% Response.write I_pos(i) %>"> 
<% next %> 
</p> 
</td> 
</tr> 

<tr> 

<td width-* 1 \62 n > 

<font face=" Verdana, Arial, Helvetica, sans-serif colors FFFFFF M > 
<fontsize="r color="#000000"> 
Product: <bx% 

Response.write Session( M TlTLE_NAME") & & SessionCPRODUCT_ID n ) 
%></b> 
</fontXfont> </td> 
</tr> 
<tr> 
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<td widths 162 M > 

<font face="Verdana, Anal, Helvetica, sans-serir coior^tfFFFFFF*^ 
<font size^l* colors 00000(T> 

<A HREF- rt /ImtAdmin/admiri2a.asp?Fr=<%Response. Write Ijhisjile %>"> 
Change Product Id </a> 
</b> 

</fontx/font> </td> 
</tr> 
<tr valign^top'^ 
<td colspan^" align="left"> <br> 

^nputtype^HIDDEN" name— "DISPLAY" value="r> 

<% 

'Response. Write t_query & "<BR>" 
ifl_disp!ay = H rthen 

AvailKeysTable(l_query) 
end if %> 

</td> 
</tr> 
</tabIe> 
</form> 
</body> 
</html> 
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drill.asp 

<%@ Language-VBScript %> 

<!-#indude flie="../support/global_constants.asp , ' ~> 

<!-#inc!ude IlIe=^ysupport/dbCon^ection.asp ,, -> 

<!- ^include f^Ie=^ysupport/adoUt^ls.asp' , -> 

<!-#include file^ysupport/drillLib.asp" -> 

<!- # include fiie="../support/navigation.asp H -> 

<% JSImageFunctions %> 

<HTML> 
<HEAD> 

^ETANAME^GENERATOR* Content= H Microsoft Visual Studio 6.0 W > 
</HEAD> 

<BODY marginwidth=0 ieftmargin=0 marginheight-0 topmargin-0 bgcolor-^CCFF" vlink="#003366 M Unk= M #003366"> 



<% DisplaylMTFrameset %> 

<font face^" Verdana, Arial, Helvetica, sans-serif size="-4"> 
<h3>Fast Find</h3> 
<% , =Session( , 'PID_PHRASE ,, ) %> 

<form method^'posf action= M drilLasp#cur id= M form2 M name= H form2"> 

<% printList 1,*V %> 

</form> 

</FONT> 

</BODY> 

</HTML> 
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drillbounce.asp 

<%@ Language^VBScript %> 

<1— #include fi!e=".7support/gJobal_constants asp" — > 

<!-- # include flie=^ysupport/dbConnection.asp ,1 -> 

<!- ^include fi!e='\ysuppo^T/adoUtUs.asp , ' -> 

<!- #include file=*\./support/drillLib.asp M -> 

<% 

Mevel - RequestQueryString("Y") 
l_rec_id = RequestQueryStringCZ") 
l_option - requestQueryStringCO") 

if Mevel = I then 
mySq! - "select grp_name " _ 

& * from v_grp_names " _ 
& * where minjecjd = " & l_recjd 
ObjRST.open mySql, strSQLOLEDB, adOpenStatic, adLockOptimistic 
if not ObjRST.EOF then 

Session("GRP_NAME") « objRST.Fields(O) 

end if 

ObjRST.close 

clseifljevcl-2then 

mySql = "select grp_name, productjd, title_name " _ 
& " from corp_info " _ 
& " where rec_id - " & l_rec_id 
ObjRST.open mySql, strSQLOLEDB, adOpenStatic, adLockOptimistic 
if not ObjRST.EOF then 

SessionfGRP NAME") = objRST.Fields(0) 
SessionfPRODUCTJD") - objRST.Fields(I) 
Scssion("TlTLE_NAME*) = objRST.Fields(2) 

end if 

ObjRST.close 

elseif Mevel -3 then 

mySq! = "select grp_name, productjd, titlejiame, S RC_C AT_N AME " _ 
& " from SRC_CATEGORY " _ 
& " where rec_id = " & I_rec_id 
ObjRST.open mySql, strSQLOLEDB, adOpenStatic, adLockOptimistic 
if not ObjRST.EOF then 

Session("GRP_NAME") = objRST.Fieids(O) 
Session("PRODUCTJD") = objRST.Fieids(l) 
SessionO"nTLE_NAME") = objRST.Fieids(2) 
Scssion("SRCJ^TJ4AME") - objRST.Fields(3) 

. end if 

ObjRST.close 

elseif Mevel = 4 then 

mySqi = "select grp_name, productjd, titie^name, SRC_CAT_NAME, Source_name, SRCJNDICATOR 
& "from Source " _ 

& " where rec_id - " & l_rec_id 

ObjRST.open mySql, strSQLOLEDB, adOpenStatic, adLockOptimistic 
if not ObjRST.EOF then 

Session("GRP_NAME") - objRST.Fields(O) 
SessionCPRODUCT_ID ,, ) « objRST.Fields(l) 
Session(TmE J4AME") - objRST.Fields(2) 
Session( ,, SRC_CAT_NAME ,, ) = objRST.Fie!ds(3) 
ScssionCSOURCE_NAME") = objRST.Fields(4) 
Session("SRCJNDICATOR") « objRST.Fieids(5) 

end if 

ObjRST.close 
elseif IJevel = 5 then 

mySql = "select grp_name, productjd, title_name, SRC_CAT_NAME, Source_name, SRC JNDICATOR, CAMP_name 
& "from Campaigns " _ 

& H where rec id = " & 1 rec id 
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ObjRST.open mySqi, strSQLOLEDB, adOpenStatic, adLockOptimistic 
if not ObjRST.EOF then 

Session( M GRP_NAME") = ofajRST.Fields(0) 
SessionCPRODUCTJD") - objRST.Fields(l) 
Session( f, TITLE_NAME") - objRST.Fields(2) 
Scssion("SRC - CAT - NAME H ) = objRST.Fields(3) 
SessionCSOURCE_NAME tt ) = objRST Jieids(4) 
Session("SRC_INDICATOR") « objRST.Fields(5) 
Session("CAMP_NAME M ) = objRST Fields(6) 

end if 

ObjRST.close 
elseif IJevel = 6 then 

mySq! = "select grp_name, product Jd, titie_name, SRC_CAT_NAME, Source_name, SRCJNDICATOR, CAMP_namc, 
Panel_name H _ 

& "from Panels " _ 

& " where rec_id = " & l_rec_id 

ObjRST.open mySql, strSQLOLEDB, adOpenStatic, adLockOptimistic 
if not ObjRST.EOF then 

Session("GRPJIAME") = objRST. Fields(O) 
SessionCPRODUCTJD M ) = objRST.Fields(l) 
Scssion(TTTLE_NAME") « objRST.Fields(2) 
Session( w SRC_CAT_NAME ,, ) - objRST.FieldsQ) 
Session( w SOURCE NAME") = objRST.Fie!ds(4) 
SessionCSRC JNdTcaTOR") = objRST.Fields(5) 
SessionC'CAMP^NAME") = objRST.Fields(6) 
Session("PANELJNAME") - objRST .Fields(7) 

end if 

ObjRST.close 

else 
isBad - true 
end if 



if not isBad then 
ifl_option= s ' , ED!T M then 
if Mevel = 4 then 

Response.Redirect "editSource.asp?Z- ' & 1 _recjd 
elseif tevel = 5 then 

Response. Redirect "editCamp.a^Z- 1 & l_recjd 
elseif Mevel = 6 then 

Response. Redirect "editPanel.asp?Z=" & l_rec_id 

end if 
else 

ifljevel-6then 

" Response.Redirect(" AdminKeys.htm") 

else 

Response.RedirectCadmin" & (IJevel + i) & *a.asp") 

end if 
end if 



end if 

%> 
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edit autosetup.asp 

<%@ Language= VBScript %> 
<!- # include fHe=="../support/gIobal_constants.asp" -> 
<!- # include file="„/support/dbConnection.asp" -> 
<!-# include file="../support/adoUtils.asp* -> 
<!- # include file= : "../support/srcTab.asp" -> 

<% 

If RequestForm("UPDATE.x") o then 

l_button = "Update" 
clself Requcstform("DELETE.x") o " H then 

IJmtton = "Delete" 
end if 

Lrecjd - RequesLQueryString("Z") 

'Response. Write l_rec_id 

If (IsNumeric( l_rec_id) ) then 

if l_button = "Update" or l_button = "Delete" then 

l_action = true 

'l_src_cat_name = RequestForm("P_SRC_CAT_NAME") 
l_src_ind = RequesLForrnC^SRCJND") 
l_source = Request Form("P_SOURCE") 

'response.write(l_source) 

objRST.open "select src_cat_name from source where source_name = & l__source & "'", strSQLOLEDB, adOpenStatic, 
adLockOptimtstic 

if not objRST.eof then 1_src_cat_name = objRST(O) else l_src_cat_name = "UNNASSIGNED" 
objRSTxlose 

if l_src_cat_name « "UNNASSIGNED" then l_source = "UNNASSIGNED" 
'res ponse.wri te(I_src_cat_name) 

I_validjrom = RequestFormfP_VALID_FROM") 
1 vaIid_to = Request.Form("P_VALID_TO") 

'response.write (l_vaJid_to & * < f]dksai;ijdksl;a jfkdljas fkdi;saj fkd fdjksal; fjdksal;fj dk sl;fasjl; ") 

l_setup_mask = Request.Form{"P_SETUP_MASK") 

*response.write(I_setup_mask) 

I_e_set_name = Request. Form("P_E_SET_NAME") 

if l_e_set_name = "0" then l_e_set_name = null 

Mogtn - SessionfU") 

objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_edit_autosetup" 
objCMD.CommandType = adCmdStoredProc 
objCMD.Parameters.Refresh 
objCMD.Parameters(I).Vaiue = l_src_cat_name 
objCMD.Parameters(2). Value = !_src_ind 
objCMD.Parameters(3). Value - l_source 
objCMD.Parameters(4). Value = l_valid_from 

objCMD.Parameters(5). value = l_vaIid_to 

objCMD.Parameters(6).vaIue = l_setup_mask 

objCMD.Pararneters(7). value = l_e_set_name 

objCMD.Parameters(8). value = Uogin 

objCMD.Parameters(9).va!ue - cint(l_rec_td) 
if I_button "Delete" then objCMD.Parameters(lO). Value = 1 else objCMD.Parameters( 10). Value « 0 
Set TempNonSessionVar = objCMD.ExecuteO 
Response. Redirect "tabautosetup.asp" 
l_action = true 
else 
l_action = false 

strSQL - "select src_cat_name, src_indicator, sourcejiame, vaIid_from_date, valid_to_date, setup_mask, e_set_name " & _ 
" from autosetup_scheme " & _ 

" where recjd = " & l_rec_id 
ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimtstic 
If not objRST.EOF then 

l_src_cat_name = ObjRST("src_cat_name") 
l_src_ind » ObjRST( H src_indicator") 
l_source = ObjRST( M source_name") 
l_valid_from = ObjRSTCva^fron^date*') 
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l_vaIid_to = ObjRST( M valid_to„date*) 
l_setup_mask = ObjRST( M setup_mask") 
l_e_set_name - ObjRST("e_set_name M ) 

end if 

ObjRST.close 

end if 
end if 



%> 
<html> 
<head> 

<tit!e>edit_autosetup.asp</title> 
</head> 

<body bgcoloi="*99CCFF" vlink= K 000000 M Hnk="003366"> 

<form method^posf action="edit_autosetup.asp?Z=<%Response. Write l_rec_id %> " id^forml name=forml> 
<table width="640 H borde^O" ceUpadding="2 H > 
<% prevSelections(3) %> 



<trvalign= ,, top ,, > 

<td align="left H width="64(r colspan =1, 3"ximg src=\ ./graphics/edit 1 222.gif width="27 M height="14"x/td> 
</tr> 

<tr valign= M top"> 

<td align^leff width= ,t 640 ,, cotspan="3"> 
<table width="50<T border="0 H cellspacing^" ceHpadding="2"> 
<tr valign="top"> 
<td height^S" aIign= H Ieft"> 
<div aiign= w left w x/div> 
</td> 

<td height-"25" align^left^ 

<input type= , IMAGE' Value="UPDATE M Name^UPDATE* 
src="../graprucs/submitl222.gif width 35 *^" height= M l6" border= w (T> 
<img src^V/graphics/blank 1222.gif wid^^O** height^" 16" border=0> 
<input type='IMAGE' Value=" DELETE" Name= w DELETE" 
src=".Ygraphics/deIeteI222.gir width-*^" height=*16" border=0> 
<%' <inputtype='IMAG£' Val UNDELETE" Name= K DELETE" 

, src= rt .7graphics/deleteI222.gir width= n 53 M heighryie* border=0> %> 
<font face=" Verdana, Arial, Helvetica, sans-serif size=M"> 
<a href=' , tabautosetup.asp">Retum to Auto-Setup table</ax/fontx/td> 
</tr> 

<tr> 

<td bgcolor=*003366 rt height= M 2(T width="140 M align=*center"> 
<div align-"center* 1 > 

<font face="Verdana, Arial, Helvetica, sans-serif color= M #FFFFFF> 
<bxfontsize="r> 
SOURCE NAME 
</fontx/bx/fontx/div> 
</td> 

<td bgcolor= H #99CCFF" height^CT width= M 36(T align= M lefr> 

<div align="ieft"xfont face= M Verdana, Arial, Helvetica, sans-serif co lor^tf FFFFFF" xbxfont size^T 
color=*#000000"> 

<%if not l_action then 

strSQL « "select U_SOURCE_NAME FROM Sourcejiescriptions " 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, T_SOURCE tt ,6, "SELECT SOURCE", l_source 
ObjRST.close 

else 

Response. Write l_source 

end if %> 

</fontx/bx/fontx/div> 

</td> 

</tr> 
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<tr> 

<td width-" 140" bgcolor-"* 003366" height="20" align="center"> 
<div align-"center"xfont face*" Verdana, Ariai, Helvetica, sans-serif color="#FFFFFF"><bxfont size="l">SOURCE 
INDICATOR </font></bx/font></div> 
</td> 

<td width="360 M bgcoIor-"#99CCFF H height="20" align="left" > 
<div a!ign-"lefrxf 0 nt face-" Verdana, Arial, Helvetica, sans-serif* co1or="#FFFFFF"xbxfontsizc="r 
coloi="#000000"> 

<%if not l_action then %> 

<input type- H TEXT" NAME^P_SRCJND' 

idO value="<%Response. Write l_src_ind %>" maxlength="30" size="6"> 

<%else 

Response. Write Ijsrcjnd 

end if %> 

</fontx/bx/font></div> 

</td> 
</tr> 

<tr> 

<td width-" 140" bgcolor-"# 0033 66" height="20" align="center"> 

<div aiign="center M xfont face-" Verdana, Ariai, Helvetica, sans-serif color="#FFFFFF"xbxfont size-" T> VALID 

FROM 

</fontx/bx/fontx/div> 

</td> 

<td width="360 H bgco!or-"#99CCFF M height-"20 M align="left"> 
<div align-" lefVxfont face-"Verdana, Ariai, Helvetica, sans-serif color="#FFFFFF"xbxfont size="r 
co!or="#000000"> 

<%if not l_action then %> 

<input type— "TEXT" NAME='P_VALlD_FROM 1 

id=0 value-" <%Response.Write l_valid_from %>" maxlength="30" 

size-" 15" width-"30"> 

<% else 

Response. Write l_valid_from 

end if %> 

</fontx/bx/fontx/div> 

</td> 

</tr> 
<tr> 

<td width*- 140" bgcolor="# 003366" height="20" align="center"> 

<div align-" center"xfont face-"Verdana, Ariai, Helvetica, sans-serif 

color-"#FFFFFF"xbxf 0 nt size-" T> VALID TO 

</fontx/bx/fontx/div> 

</td> 

<td width="360" bgcolor="#99CCFF" height-"20" align-"left"> 
<div align-"left M xfont face= M Verdana, Arial, Helvetica, sans-serif 
color="#FFFFFF"xbxfont size—" I w color="#000000"> 

<%if not l_action then %> 

<input type="TEXT* NAME=T_VALID_TO* 

id-0 vaIue="<%Response. Write l_valid_to %>" maxlength-^O" size-" 1 5 "> 

<% else 

Response. Write l_va!id_to 

end if %> 

</fontx/bx/fontx/div> 

</td> 
</tr> 

<tr> 

<td width-" 1 40" bgcolor="#003366" height="20* align="center"> 

<div align-" center"xfont face-" Verdana, Arial, Helvetica, sans-serif 

co!or="#FFFFFF"xbxfont size-* 1 1 ">SETUP MASK 

</fontx/bx/font></div> 

</td> 

<td width="360 H bgcolor="#99CCFF" height="20" align="left H > 
<div align-" lefTxfcnt face-" Verdana, Arial, Helvetica, sans-serif 
color="#FFFFFF"xbxf 0 nt size-" 1" color=*#000000*> 

<%if not Inaction then %> 

<input type— "TEXT" NAME='P_SETUP_MASK' 
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id=0 va!ue="<%Response. Write l_setup_mask %>" maxlength="30" 

size=*'l5"> 

<% else 

Response. Write i_setup_mask 

end if %> 

</fontx/bx/fontx/div> 

</td> 
</tr> 

<tr> 

<td width= K 14CT bgcolor="#0033 66" height="20" align="center"> 

<div aiign="center"xfont face="Verdana, Anal, Helvetica, sans-serif 

color="#FFFFFF H xbxfont size-" I ">EXPENSE SET 

</fontx/bx/fontX/div> 

</td> 

<td width= M 360" bgcolor="#99CCFF" height="20" align="lefr> 
<div align="left"xfont face=" Verdana, Arial, Helvetica, sans-serif 
coIo^FFFFFF^bxfont size="l" color="#000000 H > 

<%if not faction then 

strSQL - "select e_set_name FROM expense_sets where product Jd = " & 

SessionCPRODUCTJD") & " order by e_set_name " 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, "P_E_SET_NAME",6, "SELECT EXPENSE 

SET", l_e_set_name 

objRST.dose 

else 

Response. Write l_e_set_name 

end if %> 

</fontX/bx/fontx/div> 

</td> 
</tr> 
</table> 
</td> 
</tr> 
</table> 
</form> 
</body> 
</html> 
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edit campaign def.asp 

<%@ Language=VBScript %> 
<!— #inc(ude file-".Vsupport/globaI_constants.asp" -> 
<!- # include file=".VsupportAlbConnection.asp" -> 
<!- # include file="../support/adoUtils.asp" -> 
<!- # include flle==^./suppo^t/srcTab.asp ,, -> 

<% 

If RequestFormCUPDATE.x") o then 

l_button = "Update" 
elself Request form( n DELETE.x*) o "" then 

I_button = "Delete" 
end if 

l_rec_id = Request.QueryString("Z") 

'Response.Write l_rec_id 

If (IsNumeric( J_rec_id) ) then 

if Lbutton = "Update" or l_button - "Delete 1 ' then 

l_action = true 

i_campaign_code = Request Form("P_C AMP AIGN_CODE") 

i_campaign_description = Request formfP_CAMPAIGN_DESCRIPTION") 

l_src_cat_name = Request Form("P_SRC_CAT_NAME") 

if not (l_src_cat_name > " ") then l_src_cat_name = "Undefined" 

l_campaign_date - Request form(" P_CAMP AIGN_DATE") 

if not(l_campaign_date > " ") then I_campaign_date = null 

l_panel_scheme = Requestform("P_PANEL_SCHEME") 

if l_panel_scheme - "0" then l_panel_scheme - "" 

IJogin = Session("U") 

objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_edit_autosetup_campaign_def 1 
objCMD.CommandType = adCmdStoredProc 
objCMD.Parameters. Refresh 
objCMD.Parameters(l).Value = I_campaign__code 
objCMD.Parameters(2).Value = l_campaign_descnption 
objCMD.Parameters(3).VaJue - l_src_cat__name 
objCMD.Parameters(4).VaIue = l_campaign_date 

objCMD.Parameters(5).Value = l_panel_scheme 

objCMD.Pararneters(6). value = cint(l_rec_id) 
if l_button - "Delete" then objCMD.Parameters(7) Value ~ 1 else objCMD.Parameters(7). Value = 0 
Set TempNonSessionVar » objCMD.ExecuteO 
Response.Redirect "tabautosetup.asp" 
l_action = true 
else 

l_action = false 

strSQL - "select campaign_code, campaign_description, src_cat_name, campaign__date, panel_scheme " & _ 
" from autosetup_campaign_def " & _ 

" where recjd - " & l_rec_id 
ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF « False) then 

l_campaign_code = objRST("campaign_code") 

l_campaign_description = objRST("campaign_description") 

l_src_cat_name = objRST("src_cat_name") 

l_campaign_date ~ objRST("campaign_date") 

l__panel_scheme » objRST( M panel_scheme") 

end if 

ObjRST.close 

end if 
end if 



%> 
<html> 
<head> 

<title>edtt_autosetup_campaign_def.asp</title> 
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</head> 

<body bgcolor="#99CCFF" v!ink="000000" link="003366 , *> 

<form method= M posf action= H edit_campaign_def.asp?Z=<%Response. Write l_recjd%> " id=forml name=formI> 
<table width- M 640 M border= M {T cellpadding="2"> 



<tr valign= M top"> 

<td a!ign=*!erT width=°640" colspan^Tximg src= rt ../graphics/editi 222.gif width= M 27 M height= M 14"x/td> 
</tr> 

<tr vaIign=*top"> 

<td align^left" width="640 H colspan^^ 
<table width="500 M border="0" cellspacing^" cellpadding="2"> 
<tr valign- M top"> 
<td height^* atign="ieft"> 
<div align= M leff x/div> 
</td> 

<td height= rt 25 H aiign^left^ 

<input type-IMAGE' Value= M UPDATE* Name= H UPDATE" 
src=". ./graphics/submit 1222.gif width= M 54" height="16" border^O 1 ^ 
<img src^.Vgraphics/blank 1 222.gif width^O" heignF="16 M bordcr=0> 
<input type='IMAGE' Value= M DELETE" Name^DELETE" 
src= M .ygraphics/delete I222.gif width= w 53 # ' height="I6 H border=0> 
<%' <input type-'IMAGE' Valued DELETE" Name-" DELETE" 

, src='\./graphics/deietel222.gif width="53" hei^it=** 16" border=0> %> 
<font face== w Verdana, Arial, Helvetica, sans-serif size=M"> 
<a href="tabautosetup.asp M >Return to Auto-Setup table</ax/fontx/td> 
</tr> 

<tr> 

<td bgcoior="003366 H height^O" width="14<r align="center"> 
<div align="center"> 

<font face="Verdana, Aria), Helvetica, sans-serif color= M #FFFFFF"> 
<b><fontsize= w r> 
CAMPAIGN CODE 
</font></b></fontx/div> 
</td> 

<td bgcolor="#99CCFF" height-"20" width= H 36Cr align= M 1eft"> 
<div align="lefrxfont face^Verdana, Arial, Helvetica, sans-serif coior= ,, #FFFFFF t, xbxfont size=T 
cotor="#00000(r> 

<%if not I_action then %> 

<inputtype=TEXT" NAME- P_CAMPAIGN_CODE' 

id=0 value=*<%Response. Write l_campaign_code %>" maxlength^O" 

size="6 N > 

<% else 

Response. Write I_campaign_code 

end if %> 

</fontx/bx/fontx/div> 

</td> 

</tr> 

<tr> 

<td width-" 140 M bgcolor-*#003366 w height="2(T align^center*^ 
<div align= ,, center , 'xfont face-" Verdana, Aria!, Helvetica, sans-serif color=' , #FFFFFF"xbxfont size= ri 1 ">CAMPAIGN 
DESCRIPTION</fontx/bx/fontx/div> 
</td> 

<td width= M 360 n bgcolor- M #99CCFF" height- M 20 H aIign= M left w > 

<div align= ,, 1eft M xfont face="Verdana, Arial, Helvetica, sans-serif color^FFFFFF-xbxfcnt size=T 
color="#00000(r> 

<%if not inaction then %> 

<input type- r1 TEXT M NAME- P_C AMP AIGN_DESCR1PTI0N' 
id=0 value-"<%Response. Write l_campaign_description %>" 

maxlength= M 100" size= M lOO M 

<% else 

Response. Write l_campatgn_description 

end if %> 
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</fontx/bx/fontX/div> 

</td> 
</tr> 

<tr> 

<td width-" 140" bgcolor= M #003366*' height= n 20 M aiign^center^ 
<div align=Vemerxfont face= n Verdana, Arial, Helvetica, sans-serir color="#FFFFFF ,, xbxfont s ize="r>SOURCE 
CATEGORY 

</fontx/bx/fontx/div> 

</td> 

<td width="36(T bgcotor="#99CCFF M height="2<r align-'MefV^ 
<div altgn= n lefrxfont face=" Verdana, Aria!, Helvetica, sans-serif* cotor="#FFFFFF , 'xbxfont size= n r 
color= tt #000000 H > 

<%if not faction then 

'<input type=TEXT M NAME-P_SRC_CAT_NAME' 

strSQL - "select distinct src_cat_name from source where productjd = " & 

SessionCPRODUCTJD") & n order by src_cat_name" 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, "PJ5RC J?ATNAME" f 6, "SELECT SOURCE 

CATEGORY**, l_src_cat_name 

objRST.close 

*id=0 value=*<%Response. Write l_source_identifier ** maxlength^O" 

size="6 n > 

else 

Response. Write l_src_cat__name 

end if %> 

</fontX/bx/fontx/div> 

</td> 

</tr>- 
<tr> 

<td width= K 140 M bgcolor^#003366" height="2CT align^center^ 

<div a!ign=*center"xfont face=" Verdana, Arial, Helvetica, sans-serir 
co!or="#FFFFFF H xbxf 0 nt size-" I CAMPAIGN DATE 

</fontx/bx/fontX/div> 

</td> 

<td width= n 36<T bgco!or="#99CCFF" height^O" a!ign= n Iefr> 
<div align="lerVxfont face=" Verdana, Arial, Helvetica, sans-serif 
coIor="#FFFFFF T, xbxfont size="T color-^OOOOOO 

<%if not I_action then %> 

<input type^TEXT" NAME- P_CAMPAIGN_D ATE' 

id=0 value=*<%Response. Write l_campaign_date %>* maxlength= K 3{T 

size^O^ 

<% else 

Response.Write !_campaign_date 

end if %> 

</fontx/bx/fontx/div> 

</td> 
</tr> 

<tr> 

<td width^HO" bgcolor= , '#003366" height="20" align^center^ 
<div aiign="center"xfont face= M Verdana, Aria!, Helvetica, sans-serif color="#FFFFFF H xbxfont size=* I">PANEL 
SCHEME 

</fontx/bx/fontx/div> 

</td> 

<td width= M 360" bgcoior="#99CCFF H height= w 2<r align= M lefV*> 

<div align= M left M xfont face= M Verdana, Arial, Helvetica, sans-serif color* M #FFFFFF n ><b><font size^P 
color="#000000"> 

<%if not 1_action then 

'<input type= M TEXT" NAME- P_SRC_CAT_NAME' 
strSQL = "select distinct pane!_scheme from autosetup_panelj3ef where 
productjd = " & SessionfPRODUCTJD") & " order by panel_scheme" 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
ShowQueryListBox objRST, T_PANEL_SCHEME\6, "SELECT PANEL 

SCHEME", l__panel_scheme 

objRST.close 
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*id=0 va!ue="<%Response. Write I_sourceJdentifier M maxlength =,, 3Cr 

size=' , 6 ,, > 

else 

Response. Write l_panel_scheme 

end if %> 

</fontX/bX/fontx/div> 

</td> 

</tr> 



</table> 
</td> 
</tr> 
</table> 
</form> 
</body> 
</htm!> 
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edit panel def.asp 

<%@ Language=VBScript %> 
<!- # include file= M .7support/global_constants.asp" -> 
<!« ^include file^.ysupport/dbConnectton.asp" --> 
<!~ include fiie=".7support/adoUt!!s.asp M ~> 
<!- ^include file^.ysupport/srcTab.asp" -> 

<% 

If Request.FormfUPDATEx") o then 

ijjutton ~ "Update" 
elself Request forrn("DELETE.x") o "" then 

l_button =* "Delete" 
end if 

I_rec_td = Request.QueryString("Z") 
'Response. Write t_rec_id 
If (IsNumeric( l_rec_id) ) then 
if IJmtton = "Update" or Lbutton = "Delete" then 
I_action = true 

product Jd - SessionCPRODUCTJD") 

i_panel_scheme - requestiorrn("P_PANEL_SCHEME") 

l_panei_codes = request.form("PJPANEL_CODES H ) 

i_panel_name = Request.form("P_PANEL_NAME") 

I Jogin = SessionfU") 

objCMD ActiveConnection ~ strSQLOLEDB 
objCMD.CommandText = "sp_edit_autosetup_panei_def 
objCMD.CommandType = adCmdStoredProc 
objCMD.Parameters. Refresh 
objCMD.Parameters(l). Value = l_panel_scheme 
objCMD.Parameters(2). Value = i_panel_codes 
objCMaParameters(3). Value = I_panel_name 

objCMD.Parameters(4). value = cint(l_rec_id) 
if i_button - "Delete" then objCMD.Parameters(5).Va!ue = I else objCMD.Parameters(5). Value = 0 
Set TempNonSession Var = objCMD.ExecuteO 
Response.Redirect "tabautosetup.asp" 
i_action = true 
else 

l_action - false 

strSQL = "select panel_scheme, panel_codes, panel_name " & _ 
" from autosetup_panel_def " & _ 

" where recjd =* " & l_rec_id 
ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptirnistic 
If (ObjRST.EOF » False) then 

l_panei_scheme = objRST("PANEL_SCHEME") 
1 _paneI_codes-objRST("PANEL_CODES") 
l__panel_name = objRST("PANEL_NAME") 
end if 

ObjRSTxiose 

end if 
end if 



%> 
<html> 
<head> 

<title>edit_panel_defasp</title> 
</head> 

<body bgcolor= ,, #99CCFF M vlink^'OOOOOO" link= H 003366"> 

<form method="post" action= M edit_panet_defasp?Z=<%Response. Write Uecjd %> " id=forml name=forml> 
<table width-"640" border-"0 H cellpadding="2"> 
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<tr valign="top"> 

<td aIign= H iefT width="640 w coIspan= H 3"ximg S rc=\. /graphics/edit 1222.gif width="27" height^ 14 M x/td> 
</tr> 

<tr va!ign="top"> 

<td aJign^lefV width- '640" coIspan="3"> 
<tabie width= H 500" border="0" cellspacing^" celipadding="2"> 
<tr valign="top"> 
<td height- n 25" a!ign="lcft M > 
<div align i=, '!eft"x/div> 
</td> 

<td height="25" align= fl left H > 

<inputtype= , IMAGE* Vaiue="UPDATE" Name="UPDATE" 
src=\7graphics/submit 1 222.gif width= M 54" he^ght="16* , border^O^ 
<imgsrc="../graphics/blankl222.gir width= M 20" height= H 16^ border=0> 
<input type-IMAGE* Value=" DELETE" Name="DELETE" 
src-*../graphics/deIetel222.gif width«"53" height=" 16" border-0> 
<%' <input type-IMAGE' Value="DELETE M Name-'DELETE" 

'src=\./graphics/deletel222.gif width="53" height="16" border=0> %> 
<font face="Verdana, Arial, Helvetica, sans-serif* size=M"> 
<a href="tabautosetup.asp">Retum to Auto-Setup table</ax/fontx/td> 
</tr> 



<tr> 

* <td bgcotor="003366" height="20° width="140" align="center"> 
<div align="center"> 

<font face=" Verdana, Arial, Helvetica, sans-serir color="#FFFFFF"> 
<bxfont $ize= M r> 
PANEL SCHEME 
</fontx/bX/fontx/div> 
</td> 

<td bgcolor="#99CCFF" hcight="20'* width="360* align-"tefr> 

<div aIign="leffxfont face-" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"><b><font size=" I * 
color^"#000000"> 

<%if not t_action then %> 

<input type= w TEXT" NAM E- P_P AN E L_S C H EME' 

id=0 vaIue="<%Response. Write l_panel_scheme %>" maxlength^ M 50" 

size="30"> 

<% else 

Response. Write l_panet_scheme 

end if %> 

</font></bx/fontx/d i v> 

</td> 

</tr> 

<tr> 

<td width="140" bgcolor*"* 0033 66" height="20" align="center"> 

<div aIign="center M xf 0 nt face-" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfcnt size="r>PANEL 
CODES</fontx/bx/fontx/div> 
</td> 

<td width="360" bgcolor="#99CCFF" height="20" align-" left n > 

<div align="leffxfont face^" Verdana, Arial, Helvetica, sans-serif color= H #FFFFFF"xbxfont size=T 
color="#000000"> 

<%if not l_action then %> 

<input type="TEXT" NAME-P_PANEL_CODES t id=0 
value- H <%Response. Write l_panel_codes %>" maxiength= H 250" size="100"> 

<% else 

Response. Write l_panel_codes 

end if %> 

</fontx/bx/fontx/div> 

</td> 
</tr> 



<tr> 

<td width="140 M bgco!or="#003366" height="20" align="center"> 

<div align="center"xfont face=" Verdana, Arial, Helvetica, sans-serif color="# FFFFFF"xbxfont size=" 1 ">PANEL 

NAME 

</fontx/bx/font></div> 
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</td> 

<td width= H 36CT bgcolo^= t, #99CCFF ,, height= H 20" align="left"> 
<div align= M left"xfont face=" Verdana, Anal, Helvetica, sans-serif colop= M #FFFFFF"xbxfont size= rt 1" 
color="#000000 N > 

<%if not l_action then %> 

<input type^TEXT" NAME- P_PAN£L_NAME' id-0 
va!ue="<%Response. Write I_panel_name %> " maxlength="50" size="3<T> 

<% else 

Response. Write l_panel_name 

end if %> 

</fontx/bx/fontx/div> 

<rtd> 

</tr> 



</table> 
</td> 
</tr> 
</table> 
</form> 
</body> 
</html> 
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edit renewal psdef.asp 

<%@ Language=VBScript %> 
<!- #inciude file=\7support/globaI_constants.asp" -> 
<!- include file=" Jsupport/dbConnection.asp" -> 
<!- #include file*" Jsupport/adoUtils.asp" -> 
<!- ^include file-"../support/srcTab.asp" -> 

<% 

If Request.Form("UPDATRx") o then 

IJmtton = "Update" 
elself RequestformCDELETE.x") o M " then 

l_button - "Delete* 
end if 

l_rec_id = RequesLQueryString("Z") 

•Response.Write l_rec_id 

If (IsNumeric( l_rec_id) ) then 

if l_button = "Update" or l_button = "Delete" then 

l_action = true 

1_src cat_name = RequestFormCP_SRC_CAT_NAME M ) 
l_source_name = RequestForm("P_SOURCE_NAME") 
if not(l_source_name>" ") then I_source__name = "Undefined" 
l_sourceJndicator = Request Form( H P_SOURCE_INDICATOR M ) 

l_prior_source_indicator « Requestiorm("P J>RIOR_SOURCE JNDICATOR") 
l_valid_from = Requestform("P_VALID _FROM") 
Invalid Jo « RequestformCP_VALID_TO") 

objRST.open "select src_cat_name from source where source_name = & I_source_name & strSQLOLEDB, 
adOpenStatic, adLockOptimistic 

if not objRST.eof then l_src_cat_name = objRST(O) else l_src_cat_name = "Undefined" 
objRST.dose 

response. write (l_prior_source_indicator & " < Prior source indicator ") 

objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_edit_autosetup_renewal_psdef ' 
objCMD.CommandType - adCmdStoredProc 
objCMD. Parameters.Refresh 
objCMD.Parameters(l). Value - I_src_cat_name 
objCMD.Parameters(2). Value = l_source_name 
objCMD.Parameters(3). Value = l_sourceJndicator 

objCMD.Parameters(4).Value - trim(l_prior_source_indtcator) 
objCMD.Parameters(5). Value = i_vaIidJrom 

objCMD.Parameters(6). value = Invalid Jo 

objCMT>Parameters(7). value ~ cint(l_rec_id) 
if IJmtton = "Delete" then objCMD.Parameters(8). Value = 1 else objCMD.Parameters(8). Value = 0 
Set TempNonSessionVar = objCMD.ExecuteO 
Response.Redirect "tabautosetup.asp" 
l_action - true 
else 
l_action - false 

strSQL = "select source^name, source Jndicator, prior_source_indicator, valid_from_date, valid Jo jiate " & _ 
" from autosetup_renewal_psdef " & _ 

" where recjd = " & l_rec_id 
ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF - False) then 

l_sourcename = ObjRSTCsourcejiame") 

l_sourceJndicator = objRST("source_indicator M ) 

l_prior_source_indicator » objRST("prior_source_indicator M ) 

ljvalidjrom « ObjRSTCvalidJromjiate") 

l_valid_to = ObjRSTfvalid jo_date") 

end if 

ObjRST.dose 

end if 
end if 
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<html> 
<head> 

<title>editjrenewal_psdef.asp</title> 
</head> 

<body bgcolor= M #99CCFF" vlink= w 000000 w link= M 0033 66"> 

<form method="post" action="edit_renewat_psdef asp?Z=<%Response.Write I_rec_id %> " id-form 1 name-forml> 
<table width="640" border="0" cellpadding="2"> 
<tr valign="top M > 

<td align^left" width- w 640" colspan«"3"ximg src^Vgraphics/edit 1 222.gif width="27 M height= N l4 rt x/td> 
</tr> 

<tr vaIign=*'top' , > 

<td align="iefT width="640" coispan- M 3"> 
<table width="500 M border="Cr cellspacing= n 3 M cdlpadding=*2 tt > 
<tr valign-'top"> 
<td height="25" aJign= M leff> 

<div aJign= M left M x/div> 
</td> 

<td height="25" align^lefV^ 

<input type-lMAGE* Value=*UPDATE" Name="UPDATE* 
src^Ygraphics/submitl222.gif width= M 54" height= :, '16 ,, border^O 
<img src= w .7graphics/b!ankl222.gir width= ! "20" height="16" border=0> 
<input type-lMAGE" Value-'DELETE* Name= M DELETE" 
src=",./graphics/deletel222.gif width^53 H height= H l6" border=0> 
<%' <input type- IMAGE' Value^DELETE" Name= rt DELETE M 

'src= M .7graphics/de!etel222.gir width="53 M height="16" border=0> %> 
<font face=*Verdana, Arial, Helvetica, sans-serif size-M^ 
<a href^tabautosetup.asp'^Return to Auto-Setup table</ax/fontX/td> 
</tr> 

<tr> 

<td bgcolor="003366" height="20" width="140 H aiign= M center" > 
<div align= , 'center M > 

<font face= w Verdana, Arial, Helvetica, sans-serif coior= H #FFFFFF"> 
<bxfont size=" p> 
SOURCE NAME 
</fontx/bx/fontx/div> 
</td> 

<td bgcolor="#99CCFF" height="20 M width="360" align="left M > 
<div align^lerfxfont face= M Verdana, Arial, Helvetica, sans-serif color= w #FFFFFF ,, ><bxfont size="l" 

color= H #000000 M > 

<%if not l_actibn then 

strSQL = "select U_SOURCE_N AME FROM Source_descriptions " 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBoxobjRST, w P_SOURCE„NAME M ,6, "SELECT SOURCE", 

l_source_name 

objRST.dose 

else 

Response. Write l_source_name 

end if %> 

</fontx/bx/fontx/div> 

</td> 

</tr> 

<tr> 

<td width= M l40" bgcolor* M #003 3 66" height= M 20 M align^center^ 
<div aiign= M center"xfont face="Verdana, Arial, Helvetica, sans-serif color="# FFFFFF"xbxfont size= M r>SOURCE 

INDICATOR </fontx/bx/fontx/div> 
</td> 

<td width="360 N bgcolor="#99CCFF" height="2(T align= H left w > 

<div align^lcft'xfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"><bxfont size-T 
color="#000000"> 

<%if not I_action then %> 

<input type= M TEXT" NAME='P_SOURCE_INDICATOR* 
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id=0 value="<%Response.Writc l_source_indicator %>" maxlength-'^O" 

size-'6"> 

<% else 

Response. Write l_source_indicator 

end if %> 

</fontX/bx/fontX/div> 

</td> 
</tr> 

<tr> 

<td width^ M 140 M bgcolor="*003366" height*"20" align= rt center M > 
<div align= M center M xfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont size= M 1 ">PRIOR 
SOURCE 

INDICATOR </fontx/bx/fontx/div> 
</td> 

<td width="360 H bgcolor= H #99CCFF M hcight»"20" align aB "Jeft"> 
<div a[ign= K left"xf 0 nt face= M Verdana, Aria!, Helvetica, sans-serir cotor= M #FFFFFF"xbxfont size-T 
coior= M #000000"> 

<%if not l_action then %> 

<input type="TEXT M NAME-'P_PRIOR_SOURCE_INDICATOR' 
id=0 value^-^/oResponse. Write t_prior_source_indicator %>" 

maxlength*= M 25(r size^"100 H > 

<% else 

Response. Write l_prior_source_indicator 

end if %> 

</fontx/bx/fontX/div> 

</td> 
</tr> 

<tr> 

<td width="l40" bgcolon= M #003366" heigh^O" aiign="center"> 
<div align«"ccntcr"xfont face= M Verdana, Anal, Helvetica, sans-serir cotor="#FFFFFF"xbxfcnt size="l"> VALID 

FROM 

</font></bx/fontx/d iv> 

</td> 

<td width-^O" bgco[o^= ,, #99CCFF ,, height="20 M align= M left"> 
<div align= M lefTxfont face^Verdana, Arial, Helvetica, sans-serif colors FFFFFF M xbxf 0 nt size-" P 
coIor="#00000CT> 

<%if not l_action then %> 

<input type-TEXT" NAME-P_VALID_FROM* 

idO vaiue="<%Response. Write I_va!id_from %>" max length^ (T 

size= M 15"> 

<% else 

Response. Write l_valid_from 

end if %> 

</fontx/bx/fontx/div> 

</td> 

</tr> 
<tr> 

<td width= w 140 M bgcoIo^'flOC^e" height="2(T align="center w > 

<div align^center^xfont face=" Verdana, Arial, Helvetica, sans-serif 

color-"#FFFFFF ,, xbxfont size=* 1 ">V ALID TO 

</fontx/bx/fontx/div> 

</td> 

<td width«"360" bgcolor= N #99CCFF" height= H 20 M align= M ieft M > 
<div align="Icft w xfont face="Verdana, Ariai, Helvetica, sans-serir 
coloi="#FFFFFF"><bxfont size*"l" color- M #000000"> 

<%if not Inaction then %> 

<input type^TEXT NAME-P_VALID_TO' 

id=0 value="<%Response. Write l_valid_to %>" maxlength^O" size^"l5 M > 

<% else 

Response. Write l_va!id_to 

end if %> 

</fontx/bx/fontx/div> 

</td> 
</tr> 
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</table> 
</td> 
</tr> 
</'table> 
</form> 
</body> 
</htmi> 
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cditcamp.asp 

<%@ Language^ VBScript %> 
<!~#include flle^ , ^ysupport/globaI_constants.asp ,, -> 
<!- # include file="../support/dbConnection.asp" --> 
<!- #indude file^Wsupport/adoUtils.asp" -> 
<!- # include file="../support/srcTab.asp" -> 

<% 

Response. Write "HEY ! !!" 
If RequestForm("UPDATE.x") o "" then 

l_button = "Update" 
elself Request.form("DELETE.x") o rtM then 

l_button - "Delete" 
clself Requestfoimf COPY") o M " then 

i_button = "Copy" 

end if 

l_rec_id - Request.QueryString("Z") 

'Response. Write " iodsha oflpasdh ftoydhopas " & i_button & L rcc _ id 
If (IsNumeric( l_rec_id) ) then 

if IJmtton - "Update" or IJjutton = "Delete" or IJmtton = "Copy" then 

'Response. Write " FDSA FDS AFDSA FDSA FDSA FDSA FDSAFDashdfi as;hfidashp 
fiodhasopfihdsio0apfhdiospahfdiospafi8doas[p fiodsha ofipasdh fioydhopas " 

l_camp = REQUEST("P_CAMP") 

l_camp_type = REQUEST("P_CAMP_TYPE" ) 

t_camp_status = REQUEST("P_CAMP_STATUS* ) 

l_camp_date_fr - REQUEST("P_CAMP__DATE_FR" ) 

i_camp_datejo - R£QUEST("P_CAMP_DATE_TO" ) 

I_agt_code = REQUESTfP AGTjCODE" ) 

l_agt descr = REQUEST( H P_AGT_DESCR" ) 

l_e Jrtname = REQUEST("P_E_SET_NAME" ) 

|_r_set_name « REQUEST("P_R_SETNAME" ) 

l_NEWSTAND__SAle = REQUEST("P_NEWSTAND_S ALE" ) 

t_budgeted_gross_pct = REQUEST("p_budgeted_gross_pct* ) 

I Jmdgeted_vol - REQUEST("p_budgeted_voi") 

objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_edit_campaign" 
Response. Write l_budgeted_gross_pct & " " & validateNumber(l_budgeted_gross_pct) & M <b^> , 
objCMD.CommandType = adCmdStoredProc 
objCMD.Parameters.Refresh 
objCMD.Parameters(l). Value = l_camp 
objCMD.Parameters(2). Value = ValidatePickList (l_campjype) 
objCMD.Parameters(3).Value = ValidatePickList(l_camp_status) 
objCMD.Parameters(4). Value = validateDate (I _camp_datejr) 
objCMD.Parameters(5).Vaiue = null 
objCMD.Parameters(6).Value = null 
objCMD.Parameters(7), Value - null 

objCMD.Parameters(8). Value = VALIDATEPickList (l_e_set_name) 
objCMD.Parameters(9). Value - ValidatePickList (l_r_set_name) 
objCMD.Parameters(lO). Value = validateNumber(l_NEWSTAND_SAle) 
objCMD.Parameters( 1 1 ). Value = validateNumbeKLbudg^-gr 055 -? 0 *) 
objCMD.Parameters(12).Value = validateNumber(l_budgeted_voi) 
objCMD.Parameters(l3). Value = SessionfU") 

objCMD.Parameters( 14). Value = l_rec_id 
if l_button = "Delete" then 
1 THis is the isDelete Parametere 

objCMD.Parameters( 15). Value = I 
elsei f l_button - " Update" then ; 

objCMD.Parameters(l 5). Value = 0 
elseif I_button - "Copy" then 

objCMD.Parameters(15),vaIue ^2 

end if 

Set TempNonSessionVar = objCMD.ExecuteQ 
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Response.Redirect "admin5a.asp?display=r 

else 

Inaction = false 

strSQL = "select CAMP_NAME, CAMPJTPE, CAMP_STATUS_NAME, 
& " CAMP_DATEJFR, CAMP_DATE_TO, AGT_CODE, " _ 
& " AGTJ3ESCR, E_SET_NAME, R_SET_NAME, NEWSTANDSALE, * 
& * budgeted_gross__pct, budgeted_vol " _ 

& " FROM Campaigns " _ 

& " WHERE rec_id = " & cint(i_rec_id) 

ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

if (ObjRST.EOF = False) then 
l_camp = ObjRST.Fields(*CAMP_NAME H ) 

l_camp_type = ObjRST.Fields("CAMP_TYPE") 
l_camp_status = ObjRST Jieids("CAMP_STATUS_NAME") 
l_camp_date_fr = ObjRST.Fields("CAMP_DATE_FR") 
l_camp_datejo = ObjRST Jie!ds("CAMP_DATE_TO") 
l_agt_code = ObjRST.Fieids("AGT_CODE H ) 
I_agt_descr = ObjRST.Fields( M AGT_DESCR M ) 
[_c_set_name = ObjRST.Ftelds("E_SET_NAME") 
I_r_set_name = ObjRST Jields("RjSET_NAME") 
I_NEWSTAND_SAle = ObjRST.Fields(*NEWSTAND_SALE") 
1 J>udgeted_gross_pct - ObjR5T.FieIds( M budgeted_gross_pct" ) 
l_budgeted_vol = ObjRST.Fields( M budgrted_vol") 

end if 

objRST.dose 
end if 
end if 



%> 
<htmi> 
<head> 

<title>IMT Network</title> 
</head> 

<body bgcotor="#99CCFF" vlink="00000(T link="003366"> 

<form methods-post" action="editCamp.asp?Z=<%Response. Write l_rec_id %> " id=forml name-form 1> 
<table width="640" border= H 0" cellpadding^^ 
<% prevSelections(4) %> 
<lr vaiign="top"> 

<td align="lefT widtlv= H 640 M coIspan= M 3"> 
<imgsrc-\./graphics/editl222.gir width= M 27" height-" 14"x/td> 
</tr> 

<tr valign="top ,, > 
<td align="left H width="640 H colspan="3"> 
<table width^"500" border^"0" cellspacing^" cellpadding="2"> 
<tr valign="top"> 
<td height="25* aIign= M Ieft"> 

<div align= B left ,, x/div> 
</td> 

<td height= M 25" aIign="lefT> 

<input type='IMAGE' Valuc="UPDATE" Name=" UPDATE " 
src= M ../graphics/submitl222.gir width="54" height="16" border= N 0"> 
<imgsrc= w ../graphics/blankl222.gir width= M 20" height= tt 16* , border=0> 
<SCRIPT LANGUAGE="JavaScriptl , I "> 

<!- Comment out script for old browsers 
function confirm delete_camp0 { 

returnconfirmCThis will delete the Campaign, all of its panels and all of its keys. This operation 
can not be undone. Are you sure you wish to delete this Campaign?"); 
} 

//-> 

</SCRIPT> 
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<mput type-IMAGE' Valuc asW DELETE" Name-*DELETE M 

src=*\./graphics/deletel222.gif width="53" height= M 1 6" onCiick="retum conilrm_delete_carnpO n border=0> 
</td> 

<tdxinputtype="SUBMIT M Value= w COPY" Name= w COPY" id= M COPY"> 
</td> 

<font face=*Verdana, Arial, Helvetica, sans-serif size= M -4 w > 
<a hre£=*admin5a.asp*>Retum 
to Campaign</aX/fontx/td> 

</tr> 

<tr> 

<td bgcolor="003366" height="2(T width^nC align= K center"> 
<div aIign="center N > 

<font face="Verdana, Arial, Helvetica, sans-serif co!or= H #FFFFFF 1, > 
<bxfont size=T> 

CAMPAIGN NAME 
</fontx/bx/fontx/dtv> 
</td> 

<TD align="LEFT"> 

<%if not l_action then %> 
<input type="TEXT NAME='P_CAMP* 
id=0 value='<%Response. Write l_camp %>*> 

<% else 

Response.Write l_camp 
end if %> 

</td> 
</trxtr> 

<td bgcotor="003366 w height="2(T width= H 140" align-'center^ . 
<div align="center"> 

<font face^"Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 

<bxfontsize= ,, r> 

CAMPAIGN START DATE 

</font></bx/fontx/div> 

</td> 

<TD align= M LEFT"> 
<%if not faction then %> 

<input type= tt TEXT M N AM E=*P_C AM P_DATE_FR' 
id=K) value- <%Response. Write l_camp_date_fr %>*> 

<% else 

Response.Write l_camp_date_fr 
end if %> 

</td> 
</trxtr> 

<td bgcolor= t, 003366 M height= H 2(T widths" 140" align= M center M > 
<div align^centef > 

<font face="Verdana, Arial, Helvetica, sans-serif color^FFFFFF^ 
^xfontsize^l^ 
CAMPAIGN TYPE 
</fontx/bx/fontx/div> 
</td> 

<TD a!ign= M LEFT M > 
<%ifnotl action then 

strSQL -""select CAMP_TYPE_NAME from PROD_CAMP_TYPE where n _ 
& M PRODUCTJD^" & SessionCPRODUCTJD") 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, "p_camp_type M ,6, "SELECT TYPE", l_camp_type 
objRSTxlose 
else 

Response.Write i_camp_type 
end if %> 

</td> 
</trxtr> 

<td bgcolor="003366" height^C width= M 140 t1 align=*center"> 
<div align-"center H > 

<font face="Verdana, Arial, Helvetica, sans-serif color= M #FFFFFF"> 

<bxfontsize="r> 

CAMPAIGN STATUS 
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</fonP*</b></fontx/div> 
</td> 

<TD align="LEFT> 
<%if not Inaction then 

strSQL - "select CAMP_STATUS_NAME from PROD_CAMP_STATUS where M _ 
& * PRODUCT_ID= w & SessionOPRODUCTJD*) 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, *p_camp_status ,, ,6, "SELECT STATUS", l_camp_status 
objRST.close 
else 

Response. Write l_camp_status 
end if %> 

</td> 
</trxtr> 

</tr> 

<% IF SESS^ON( , *SRC_CATEGORY ,, ) = "Agents" then %> 
<tr> 

<td bgcoIor= H 003366" height="20 M width= M I4CT align= M center ,, > 
<div aiign= t, center tt > 

<font face="Verdana, Arial, Helvetica, sans-serif color= M #FFFFFF H > 

<bxfontsize="r> 

Agent Code 

</fontx/bx/fontx/div> 
</td> 

<TD aIign="LEFT"> 
<%if not I_action then %> 
<input type^TEXT" NAME- P_AGT_CODE* 
id=0 value='<%Response. Write l_agt_code %>*> 

<% else 

Response. Write l_agt_code 
end if %> 

</td> 
</trxtr> 

<td bgcoior= w 003366 ,t height="2(r wtdth= w 140" aJign="center n > 
<div align= M center"> 

<font face="Verdana, Arial, Helvetica, sans-serif color= M #FFFFFF K > 
<bxfont size="r> 
Agent Descr 

</fontx/bx/fontx/div> 
</td> 

<TD align^LEFT^ 
<%if not faction then %> 
<input type="TEXr NAME-P_AGT_DESCR' 
id=0 value='<%Re5ponse.Write l_agt_descr%>'> 

<% else 

Response.Write l_agt_descr 
end if %> 

</td> 
</tr> 

<%else %> 

<inputtype="hidden w NAME- P_AGT_DESCR' 
value-"> 

<inputtype= M hidden" NAME s =T_AGT_CODE' 

value="> 
<% end if %> 

<tr> 

<td bgcolor= K 003366 M heigh^O" width="14(T a!ign= M center"> 
<div align^center^ 

<font face= H Verdana, Arial, Helvetica, sans-serif coior= H #FFFFFF"> 
<bxfont sizQ~ n V> 
EXPENSE SET 
</fontx/bx/fontx/div> 
</td> 

<TD align="LEFT"> 
<%ifnotl action then 



Integrated Marketing Technology 



9/27/00 2:22 PM 



Page 119 of 200 




IMT Subscription Marketing Reporting System 



strSQL = "select e_set_name from EXPENSE_SETS where ** _ 
& " PRODUCT & Scssion("PRODUCTJD") 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

showQueryListBox objRST, "pJE_SET_NAME",6, "SELECT EXPENSE SET", 1_E_SET_NAME 
objRST.ctose 
else 

Response. Write l_e_set_name 
end if %> 

</td> 
</trxtr> 

<td bgcolor*"003366 H hcighfr^O" widuv="140" align="centef> 
<div align^center^ 

<font face="Verdana, Arial, Helvetica, sans-serif color= M #FFFFFF> 
<bxfont size=" P> 
REVENUE SET 
</fontx/bx/fontx/div> 
</td> 

<TD align-" LEFT" > 

<%if not l_action then 
strSQL = "select r_set_name from REVENUE_SETS where M _ 
& " PRODUCTJD^ & SessionC , PRODUCTJD' , ) 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

ShowQueryListBox objRST, "p_r_SET - NAME ,, ,6, "SELECT REVENUE SET \ 1_R_SET_NAME 
objRST.cIose 
else 

Response. Write l_R_SETNAME 
end if %> 

</td> 
</tr> 
<tr> 

<td bgcolor="003366" height= M 2(T width= M 14(T align^center 1 ^ 
<div aligns" center*> 

<font face="Verdana, Arial, Helvetica, sans-serif coIor= rt #FFFFFF"> 

<bxfont size= H r> 

NEWSSTAND SALE 

</font></bx/fontx/div> 

</td> 

<TD a!ign- w LEFT w > 
<%if not l_action then %> 

<input type="TEXT NAME- P_NEWSTAND_SALE' 
id=0 vaiue='<%Response.Write l_NEWSTAND_SAle %>'> 

<% else 

Response. Write l_NEWSTAND_SAIe 
end if %> 

</td> 
</trxtr> 

<td bgcolo^="003366 ,, height^O" widtiv="14{T align="center n > 
<div align^center*^ 

<font face="Verdana, Arial, Helvetica, sans-serif color= H #FFFFFF ,, > 

<bxfont size=" P> 

BUDGETED GROSS % 

</font></bx/fontx/div> 

</td> 

<TD align-TEFT^ 
<%if not inaction then %> 

<input type^TEXr NAME='P_budgeted _gross_pcf 
id=0 value='<%=l_budgeted_jgross_pct%>*> 

<% else 

Response.Write I_budgeted_ j gross_pct 
end if %> 

</td> 
</trxtr> 

<td bgcolor= M 003366 M height= M 2<T width="140" align= M center"> 
<div align- H center ,, > 

<font face="Verdana, Arial, Helvetica, sans-serif color= M #FFFFFF"> 
<bxfont size- 1 1 "> 
BUDGETED VOL 
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</fontxA)X/foTitX/div> 
</td> 

<TD altgn="LEFT> 
<%if not l_action then %> 
<input type="TEXT NAME=T_budgeted_vol' 
id=0 value- <%=i_budgeted_voi%> f > 

<% else 

Response.Write l_budgeted_vol 

end if %> 

</td> 
</tr> 



</table> 
</td> 
</tr> 

</table> 
</form> 



<P> </P> 

</BODY> 
</HTML> 
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editcampstat.asp 

<%@ Language=VBScript %> 

<!- #include file="../support/gIobal_constants.asp" --> 

<!- # include file^.ysupport/dbConnection.asp" ~> 

<!- # include file^Vsupport/adoUtils.asp" -> 

<!- # include file=^./suppo^t/s^cTab.asp ,1 -> 

<!- # include file=V/support/setupTab.asp" -> 

<% 

If RequestFormCUPDATE.x'*) o then 
l_action ~ "Update" 

elself Request form( M DELETRx M ) o "* then 
l_action - "Delete" 

end if 

!_ColumnCount - 2 

l_rec_id = RequestQueryStringCZ") 

l_sp_edit = "sp_Edit_Prod_Camp_status" 
l_ftle = "editCampStatasp" 

dim l_col_names(2) 
dim l_col_values(2) 
IJTitle = * Campaign Status" 

I_setupTabLink = "setupCampStat.asp" 
I_showPrevSelection- false 

l_col_names(0) = "CAMPAIGN STATUS" 
l_coi_names(l) - "DESCRIPTION" 

l_query = "select C AMP_STATUS_N AM E, CAMP_STATUS_DESCR " _ 
& " FROM PROD_camp_status " _ 
& " WHERE rec_id = " & cint(i_rec_id) 



' Response. Write l_rec_id 
If (IsNumeric( l_rec_id) ) then 

if l_action = "Update" or l_action = "Delete" then 

editAccept l_recjd, faction, i_ColumnCount, l_setupTabLink,l_sp_edit 
else 

strSQL = l_query 

ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF = False) then 
Uol_vaiues(0) « ObjRST.Fields(O) 

i_col_va!ues(l) = ObjRST.Fields(l) 

end if 

objRST.close 
end if 

end if 



' call setupTab's editmain to paint screen for user input 
editHeading l_file, l_file, l_rec_id 

'assign values to variables for setupTab's editMain 



' call setupTab's editmain to paint screen for user input 

editMain IJTitle^^setupTabLin^^showPrevSelectionJ^o^names^.co^valuesJ^oIumnCount 
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' call setupTab's editBottom to close body, html, form 
editBottom %> 
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editcamptvpe.asp 

<%@ Language=VBScript %> 

<!- #indude file="„/support/globaI_constants.asp" ~> 

<!- #include file="../support/dbConnection.asp" -> 

<!— #include ftle="../support/adoUtils.asp" — > 

<!- #include fiIe="Jsupport/srcTab.asp" -> 

<!~ # include file=".Vsupport/setupTab.asp" -> 

<% 

dim l_coI_names(2) 
dim l_col_values(2) 

l_ColumnCount - 2 
l_rec_id = Request QueryStringO'Z") 
If RequestFormCUPDATE-x") o then 
l_action - "Update" 

clself Request.form("DELETE.x") o "" then 
l_action = "Delete 1 ' 

end if 

L s P_ e( *it ~ M sp__Edit_Prod_Camp_Type n 

1 file = *editCampType.asp" 

l_Tit!e - " Campaign Type" 
l_setupTabLink = "setupCampType.asp" 
l_showPrevSelection= false 

I_col_names(0) - "CAMPAIGN TYPE NAME" 
l_col_names(l) = "DESCRIPTION" 

l_query = "select CAMP_TYPE_NAME, CAMP_TYPE_DESCR " _ 
& " FROM PROD_camp_type " _ 
& " WHERE recjd - • & cint(l _rec_id) 

1 Response. Write !_rec_id 
If (IsNumeric( l_rec_id) ) then 

if l_action = "Update" or Inaction = "Delete" then 

editAccept l_rec_id, Inaction, l_ColumnCount, I_setupTabLinkJ_sp_edit 
else 

strSQL = l_query 

ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF = False) then 
l_col_values(0) - ObjRST.Fieids(O) 

l_col_yalues(l) = ObjRST.Fields(i) 

end if 

objRST.close 
end if 

end if 



' call setupTab's editmain to paint screen for user input 
editHeading I_file, l_file, l_rec_id 

'assign values to variables for setupTab's editMain 



* call setupTab's editmain to paint screen for user input 

editMain lJTiUeJ_setupTabLink ) l_showPrevSelection,l_col_names ) I_col_values,l_ColurnnCount 
' call setupTab's editBottom to close body, html, form 
editBottom %> 
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editesetasp 



<%@ Unguage=VBScript %> 
<[- ^include file^\./support/globai_constants.asp" ~> 
<!- # include file="../support/dbConnection.asp H -> 
<!-#inciude file== , \./support/adoUtiJs.asp" -> 
<!- # include file="../support/srcTab.asp* -> 



<% 



If RequestForm("UPDATE.x") o then 

l_button = "Update" 
eiself Request.form("DELETE.x") o then 

l_button = "Delete" 
end if 



recjd = RequestQueryString( H Z") 
'Response. Write l_rec_id 

If IsNumeric(rec_id) then 

•response. write( M Helto World > button - " & l_button) 
if l_button - "Update" or lJ>utton = "Delete" then 

productjd = SessionCPRODUCTJD") 
e_set_name = Requestform("e_set_name") 
print_cost = Requestforrn("print__cost") 
print_cpm__cpu - Request form("print_cpm_cpu") 
printjjasis = Request.fo^n^("p^int_basis ,, ) 
merge_purge - Requestform("merge_purge") 
merge_cpm_cpu = Requestform("merge_cpm_cpu") 
merge_basis - Requestform("merge_basis") 
ltr_cost - RequestformCitr^cost") 
ltr_cpm_cpu ~ RequestforrnOu^cpn^cpu'') 
itr_basis = Request form("ltr_basis") 
postage_out_cost = requestforrn("postage_out_cost") 
postage_out_cpm_cpu = Requestform("postage_out_cpm_cpu M ) 
postage_out_basis = Requestform("postage_out_basis H ) 
postage_in_cost = Request form("po$tagejn_cosf) 
postage_in__cpm_cpu = Request form("postage_in_cpm_cpu"} 
postage Jn_basis = Request form("postage_in_basis") 
premium_cost - Requestform("premium_cost") 
premium_cpm_cpu = Request. form("premium_cpm_cpu") 
premium_basis = Requestform("premium_basis n ) 
badpay_cost = Request. form("badpay_cosf ) 
badpay_cpm_cpu = Requestform("badpay_cpm_cpu") 
badpay_basis = RequestformCbadpay^asis'') 
billing^cost = Requestformfbilling^cost") 
billing_cpm_cpu = Request.form( M billing L _cpm_cpu") 
billing^basis = RequestformCbilli^g_basis ,, ) 
subs_svc_costs = Requestfonm("subs_svc_costs") 
subs_svc_cpm_cpu = Requestform("subs_svc_cpm_cpu") 
subs_svc_basis - Requestform("subs_svc_basis") 
exp_other_costs - Request. form{"exp_other_costs") 
exp_other_cpm_cpu = Request.fo^m( M exp_othe^_cpm_cpu ,, ) 
exp_other_basis = Request. form("exp_other_basis") 
if l_button = "Delete" then IsDelete = 1 else IsDeiete = 0 

objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_edit_prod_e_set" 
objCMD.CommandType = adCmdStoredProc 
objCMD.Parameters.Refresh 

objCMD.Parameters("@product_id"). Value - product_id 

objCMD.ParametersC^e^set.name"). Value = e_set_name 

if not (print_cost > " ") then 

objCMD.Parameters("@print_cost"). Value ~ null 

else 

objCMD ParametersC@print_cosf). Value - print_cost 

end if 
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objCMD.Parameters( ,, @print_cpm_cpu ,, ).Value = print_cpm_cpu 
objCMD Parajneters("@print_basis' 1 ). Value = print_basis 
if not (merge_j)urge > " H ) then 

objCMD.Parameters("@merge_purge*). Value - null 

else 

objCMOParamete^^merge^urge*). Value = merge_purge 

end if 

objCMD.Parameters( ff @merge_cpm_cpu"). Value = merge_cpm_cpu 
objCMD.Pa^amete^s("@me^ge_basis ,, ). Value = merge_basis 
if not (Itrjcost > " ") then 

objCNID.Parametersr@iu-_cosr). Value = null 

else 

objCMD,Parameters( , *@ltT_cost' , ). Value = ltr_cost 

end if 

objCMD.Parameters("@ltr_cpm__cpu*). Value - ltr_cpm_cpu 
objCMD.Parameters( M @Itr_basis n ).Value - ltr_basis 
if not (po$tage_put_cost > H ") then 

objCMD.Parameters( w @postage_out_cost*).value - null 

else 

objCMD.Paramete^^postage^out^st"). Value = postage_out_cost 

end if 

objCMD.Parameten("@postage_out j;pm_cpu*),Value - pcstage_out_cpm_cpu 
objCMD.Parameteis(*@postage_out_basis M ). Value = postage_out_basis 
if not (postage jn_cost > mn ) then 

objCMDParameters("@postage_in_cost tt ) - null 

else 

objCMD.Parameter5("@po$tageJnj;ost*). Value - postage Jn_cost 

end if 

objCMD.Pa^amete^s( , '@po$tageJn_cpm_cpu ,, ). Value - postageJn_cpm_cpu 
objCMD.ParametersO , @postage_i^_basis' , ), Value = postage_in_basis 
if not (premium_cost > " ") then 

objCMD.Pa^amete^s("@p^em!um_cost ,, ) = null 

else 

objCMD.Parameters( w @premium_cost"). Value = premium__cost 

end if 

objCMD.Parameters( w @premium_cpm_cpu"). Value - premium_cpm_cpu 
objCMD.Parameters("@prcmiumJ>asis N ). Value = premium_basis 
if not (badpay_cost > " ") then 

objCMD.Parameteis("@badpay_cost"). value - null 

else 

objCMD.Parameters("@badpay_cosr). Value - badpay_cost 

end if 

objCMD.Parameters("@badpay_cpm_cpu"). Value - badpay_cpm_cpu 
objCMD.Parameters(*@badpay_basis"). Value - badpay_basis 
if not (bilHng_cost > then 

objCMD.Paramcters( ,, @biHingjcost ,, ).Value = null 

else 

objCMD.Parameters( n @billing_cost"). Value = billingjxjst 

end if 

objCMD.Parametere("@bilHng^cpm_cpu"). Value - billing_cpm_cpu 
objCMD.Parameters("@bilKngJ>asis*).Value - biiHng_basis 
if not (subs_svc_costs > n ") then 

objCMD.Parameters( ,, @subs_svc_costs M ).value = null 

else 

objCMD.ParametereC^ubs^sv^costs*). Value - subs_svc_costs 

end if 

objCMD.Parameters( ,, @subs_svc_cpm_cpu ,, ).Value = subs_svc_cpm__cpu 
objCMD.Parameters( M @subs_svc_basts"). Value *= $ubs_svc_basis 
if not (exp_other_costs > " ") then 

objCMD.PArameters("@exp_other_costs M ) - null 

else 

objCMD.Parameters( ,, @exp_other_costs ,f ). Value = exp__other_costs 

end if 

objCMD.Parmeters("@expj)therj;pm_cpu"). Value ~ exp_other_cpm_cpu 
objCMD.Parameters( M @exp_other_basis H ).Value = exp_other_basis 
objCMD.Parameters("@recJd").value = recjd 
objCMD.Parameters("@JsDelete"X Value = IsDelete 
Set TempNonSessionVar - objCMD.ExecuteQ 
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Response.Redirect "setupesetasp" 

else 'Neither Update or Delete was pressed 

strSQL = "select *"&_ 

" from expense_sets w & _ 

" where recjd = " & recjd 
'response.write (strSQL) 
ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
end if 
end if 



if l_button o "Update* and l_button o "Delete" then 

%> 
<htmi> 
<head> 

<title>editeset.asp</tit]e> 
</head> 

<body bgcolor= tt #99CCFF tt viink="00000(T link= M 0033 66"> 

<form method^post" action="editesetasp?Z= s <%Response. Write recjd %> " icMorml name^forml> 
<table border= M 0" cellpadding^^ 
<tr> 

<td> 

<inputtype='IMAGE' Vaiue=*UPDATE M Namc-"UPDATE" 

src=Vgraphics/submitl222.gif width="54" height=" 1 6" border="(T> 

<imgsrc- n .Jgraphics/blank:1222.gir width="20 M height^* 1 6" border=0> 
<input type^IMAGE* Vaiue-"DELETE" Name-** DELETE" 

src=Vgraphics/deletel222.giF width«"53" height=" 1 6" border=0> 
</td> 

</tr> 

<tt> 

<td> 

<a href="setupeseLasp">Return to Expense Set Setup Tabte</a> 

</td> 

</tr> 

<tr><td>&nbsp</td></tr> 

<tr> 
<td> 

Expense Set 

</td> 
<td> 

<input type= M TEXT NAME="e_set_name" vaiue="<°/o=objRST( M e_set_name' , )%> ,, > 

</td> 

</tr> 
<tr> 

<td> 

Print Cost 

</td> 
<td> 

<input t\pe=TEXT M NAME= M print_cost" vaJue^<^/a==objRST( tt print_cost ,, )%> w > 

</td> 
<td> 

<% showLOVListBox "CPM,CPUYprint_cpm_cpu'\2, ,,, \ objRST( H print_cpm_cpu") 

%> 

</td> 
<td> 

<input type=" HIDDEN* NAME="print_basis' 1 value="Mail Qty"> 
Mail Qty 

</td> 

</tr> 
<tr> 

<td> 

Merge Purge Cost 

</td> 
<td> 

<input type="TEXT NAME= w merge_purge" value= M <%=objRST( N merge_purge")%>"> 
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%> 

objRST(*merge_basis") %> 
</tr> 

<tr> 



<tr> 



</td> 
<td> 



</td> 
<td> 



</td> 



<td> 

</td> 
<td> 

</td> 
<td> 

</td> 
<td> 



</td> 

<td> 

</td> 
<td> 



<% showLOVListBox M CPM,CPUYmerge_cpm_cpu'\2/"\ objRSTCprint_cpm_cpu M ) 
<% showLOVListBox "Mail Qty,Merge Purge Qtyymerge_basis\2, H, \ 

Lettershop Cost 

<input type="TEXT H NAME= H ltr_cost K value^^/^bjRSTCl^cosr) 0 /^^ 

<% showLOVListBox N CPM,CPU M , M itr_cpm__cpu M ^, M \ objRSTOtr_cpm_cpu") %> 

<inputtype="HIDDEN w NAME="ltrJ>asis" vaJue= M Mail Qty"> 
Mail Qty 

Postage Out Cost 



<input type^TEXT NAME= M postage_out_cost M 
va1ue^ M <3 / o==objRSTCpostage_out_cost H )%> , *> 
</td> 



<td> 

objRST( M postage_out_cpm_cpu") %> 
</td> 
<td> 



</td> 

<tr> 

<td> 

</td> 
<td> 



<% showLOVListBox "CPM,CPU M /postage_out_cpm_cpu M ,2/ w , 



<input type= M HIDDEN M NAME^postage^utJjasis" vatue^Mail Qty"> 
Mail Qty 



Postage In Cost 



<input type=TEX*T NAME^postageJr^cosf 
value- ,, <%=objRST( ,, postage_in_cost ,, )%> ,, > 
</td> 



<td> 

objRST( M postage_in_cpm_cpu") %> 
</td> 
<td> 



</td> 

</tr> 
<tr> 

<td> 

</td> 
<td> 



<% showLOVListBox "CPM£PUYpostagejn_cpm_cpu*,2/ 



<input type=" HIDDEN" NAME= M postage_in_basis n vaiue= M Gross Subs"> 
Gross Subs 



Premium Cost 

<input type= rt TEXT H NAME= M premium_cost" 



value^^/o^objRSTCpremium^ost") 0 /^^ 
</td> 
<td> 

<% showLOVListBox M CPM J CPU'^ M premium_cpm_cpu^2, , " 

objRST("postage_in_cpm_cpu") %> 
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</td> 
<td> 

objRST( M premium_basis M ) %> 

</td> 

</tr> 
<tr> 

<td> 

</td> 
<td> 

</td> 
<td> 

objRST("badpay_cprn_cpu M ) %> 

</td> 
<td> 

</td> 



</tr> 
<tr> 



%> 



</tr> 
<tr> 



<td> 

</td> 
<td> 

</td> 
<td> 



</td> 
<td> 



</td> 



<td> 

</td> 
<td> 



<% showLOVListBox "Gross Subs,Net Subs7'premium_basis , \2, w \ 
Bad Pay Cost 

<input type— "TEXT** NAME^badpayjxjst" value-^/o^objRSTfbadpay^ost") 0 /^^ 
<% showLOVListBox M CPM 1 CPU H /badpay_cpm_cpu M ) 2 J WH , 



<input type=" HIDDEN" NAME="badpay_basis f ' vatue="Gross-Net Subs H > 
Gross-Net Subs 



Billing Cost 

<input type= H TEXT M NAME= M biUing_cost M vaJue^^/o^bjRSTCbiliing^cosr) 0 /^^ 
<% showLOVListBox "CPM£PU Ybillin^cpmj:pu*,2,' , \ objRST( w biliing_cpm_cpu-) 



<input type="HIDDEN" NAME="biIling_basis M value="Credit Subs M > 
Credit Subs 



Sub Service Cost 



<input type— "TEXT" NAME=*subs_svc_costs H 
vaiue^ M <%==objRSTCsubs_svc_costs w )%> f, > 
</td> 



<td> 

objRST( H subs_svc_cpm_cpu M ) %> 

</td> 
<td> 



</td> 

<tr> 

<td> 

</td> 
<td> 



<% showLOVListBox XPM,CPU\^ubs_svc_cprnj:puV/'\ 



<input type=" HIDDEN" NAM£="subs_svc_basis" value^et Subs"> 
Net Subs 



Exp Other Cost 



<input type= M TEXT NAME^exp^ther^costs" 
value^<^ ) /o==objRST( ,, exp_other_costs , ')%> M > 
</td> 
<td> 

<% showLOVListBox M CPM,CPU", ,, exp_other_cpm_cpu",2; 

objRST("exp_other_cpm_cpu") %> 

</td> 
<td> 
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<% showLOVListBox "Mail Qty,Merge Purge,Gross Subs,Net 
Subs rt ,"exp_other_basis",2, M ", objRST("exp_other_basis") %> 
</td> 

</tr> 

</tab!e> 
</td> 
</tr> 
</tabie> 

<%=!_button%> 
</fonn> 
</body> 
</html> 

<%end if%> 
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editkcvs.asp 

<%@ Language=VBScript %> 

<!-#tnclude fiie="../support/global_constants.asp" -> 

<!-#include file=="../support/dbConnection.asp" -> 

<!- #inctude file="../support/adoUtiIs.asp" -> 

<!- #include file=V/support/srcTab.asp" -> 

<!- ^include fiIe="../support/setupTab.asp" -> 

<% 

l_debug = 0 * set to 1 for debugging 

l_rec_id = Request.QueryString("Z") 
ifljtebug- 1 then 

Response, write I_rec_id 

end if 

If Request Form("UPDATE.x") o then 

I_action - "Update" 
elsclf Requestform("DELETE.x") o "" then 

Laction = "Delete" 
end if 

L s P_ edit = "sp_Edit_Keys w 
l_file = "editKeys.asp" 
!_ColumnCount = 16 
diml_col_names(16) 
dim l_coI_values(16) 
dim l_col_types(16) 
dim I_coI_descl(16) 
dim i_col_desc2(l6) 
LTitIe = "Keys" 

l_setupTabLink = "adminKeysRightasp" 
l_showPrevSe!ection= false 
|_col_names(0) = "KEY" 

!_coI_names(I) - "KEY DESCRIPTION" 
l_col_names(2) = "MAIL QTY" 
l_col_names(3) = "MAIL QTY OVERRIDE" 
i_coi_names(4) - "LIST CATEGORY" 
l_coLnames(5) = "LIST NAME" 
l_coLnames(6) = "LIST SEGMENT" 
l_col_names(7) - "LIST CPM" 
l_co!_names(8) - "LIST COST BASIS" 
l_co!_names(9) - "LEST COST FACTOR" 
l_col_names(10) - "MERGE PURGE QTY" 
I_cot_names(1 1) = "EXPENSE SET" 
l_coi_names(12) = "REVENUE SET" 
l_col names(13) = "PACKAGE" 
lj»f names(l4) = "SUBTOTAL FLAG" 
l_col_names(15) = "OPTIONAL EFFORT ID" 

Lquery - "select " 

Lquery = Lquery & " FULLJPROMO_KEY ,"•<> 
l_query- l_query & " PJCEY_DESCR ,"'1 
Lquery = I_query & " key_maii_QTY ,"'2 
Lquery = Lquery & " MAIL_QTY_OVERRIDE ," '3 
1 query = i query & " LIST_CAT_NAME ,* ' 4 

fquery - 1 query & " LIST_NAME 9 m 9 5 - CHANGE TO LIST NAME 

lquery - fquery & " LIST SEGMENT_NAME ' 6 - CHANGE TO LIST SEGMENT 

fquery = fquery & " list_cost_actual_cpm ,"' 7 - CHANGE TO LIST SEGMENT 

Lquery = \_quexy & " list_cost_basis 8 

Lquery = l_query & " list_cosLfactor ," * 9 

Lquery = i^query & " merge_purge_qty ,"'10 

Lquery = l_query & " e_set__name 1 1 

Lquery = Lquery & " r_set__name ,"'12 

Lquery - Lquery & " PANEL.PKG " 13 

1 query - Lquery & " SUBTOTAL_FLAG ,"14 

Lquery = Lquery & " OPTIONAL_EFFORT_ID,FULL_PROMO_KEY, REC JD * _ 
& " from Keys " _ 
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& " where recjd = " & clng(l_rec_id) 
ifl_debug = I then 
for m = 1 to 1 5 

Response. write tt P_ N & m & M " & request("P_" & m) & M <br>" 
next 

Response. Write "<BR> H & Ijrccjd & *<BR> " & Lquery & "<BR>" 
end if 

If (IsNumeric( i_recjd) ) then 

if i_action - "Update" or I_action = "Delete" then 
' editAccept l_recjd, l_action, l_ColumnCount, l_setupTabLink,l_sp_edit 
' must skip 0 and 2 
1_0 = Request("PJ") 
1_1 = Requcst("PJT) 
l_2 = Request("P_4") 
I_3 = RequestCP_5") 
1_4 = Request( w P_6") 
I_5 - RequestC , P_7") 
1_6 « RequestfPJ*) 
1_7 = RequestC , P_9 M ) 
1_8 =Request("P_10 f ') 
1_9 - Request( M P_l I") 
l_10 - Request("P_12 ,t ) 

1 i 1 =Request( H P_13 fl ) 

I_12 - RequestCP_14") 
i_I3 =RequestCP_l5 M ) 



objCMD.ActiveConnection - strSQLOLEDB 
objCMD.CommandText = "sp^editjcey - 

objCMD.CommandType = adCmdStoredProc 
objCMD.Parameters.Refresh 

USER SUPPLIED 
if I_debug- 1 then 

Response. Write "<br>l H & i_0 
Response. Write "<br>2 " & M 
Response. Write "<br>3 " & validatePickList (1__2)' 
Response. Write M <br>4 " & validatePickList (1_3) 

Response, Write H <br>5 " & validatePickList (I_4) 
Response. Write "<br>6 " & validateNumber (1_5) 
Response. Write "<br>7 " & validatePickList QJi) 
Response. Write "<br>8 " & validateNumber ( l_7) 
Response.Write *<br>9 " & validateNumber ( 1_8) 
Response. Write "<br> 10 "& validatePickList (!_9) 
Response. Write "<br>ll " & validatePickList (IJO) 
Response.Write "<br>12 * & validatePickList (l_l 1) 
Response.Write K <br>13 " & validatePickList (1_12) 
Response.Write "<br>!4 " & l_13 
Response.Write "<br>!5 " & validatePickList (IJ) 

SUPPLIED BY ME 

end if 

objCMD.Parameters(l). Value = 1_0 

objCMD.Parameters(2).Value = VALIDATEnUMBER(l_l) 

objCMD.Parameters(3). Value = validatePickList (1_2) 

objCMD.Parameters(4).Value = validatePickList (I_3) 
objCMD.Parameters(S). Value = validatePickList (I_4) 
objCMD.Parameters(6).Value « validateNumber (1_5) 

objCMD.Parameters (7).VaIue = validatePickList (I_6) 
objCMD.Parameters(8).Vaiue - validateNumber ( 1_7) 
objCMD.Parameters(9).Value = validateNumber (l_8) 
objCMD.Parameters( 10). Value = validatePickList (l_9) 
objCMD.Parameters(l l).Vaiue = validatePickList (1_10) 
objCMD.Parameters(12). Value « validatePickList (1_1 1) 
objCMD.Parameters(i3).Value = validatePickList (1J2) 
objCMD.Parameters( 14). Value = l_13 



Integrated Marketing Technology 



9/27/00 2:22 PM 



Page 132 of 200 




IMT Subscription Marketing Reporting System 



objCMD.Parameters(I5).Vaiue = i_Rec_id 
if l_action = "Delete* 1 then 
* THis is the isDelete Parametere 

objCMD.Parameters( 16). Value - 1 

else 

objCMD.Parameters(16). Value = 0 

end if 
ifi_debugo 1 then 

Set TempNonSessionVar = objCMD.ExecuteO 
Response.Redirect "adminkeysrightasp" 

end if 



else 



strSQL - l_query 



ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

If (ObjRST.EOF - False) then 
l_col_values(0) = ObjRST.Fields(O) 'key 

l_col_vaiues(l) = ObjRST.Fields(i) ' p_KEY_desc 
1 col_values(2) = ObjRST.Fields(2) *MAJL_QTY 
f col_values(3) = ObjRST.Fields(3) 'MAIL_QTY_OVERRIDE 
l_coLvalues(4) = ObjRST.Fields(4) ' LIST_CAT_NAME 
l_col_values(5) - ObjRST.Fields(5) ' LIST_NAME 
l_col_values(6) - ObjRST.FieIds(6) ' LIST_SEGMENT_NAME 

l_col_values(7) - ObjRST.Fields(7) ' list_cost_actual_cpm 
l_col_vaiues(8) - ObjRST.FieIds(8) 1 list_cost Jjasis 
l_col_vaiues(9)- ObjRST.Fields(9) 'Ust_cost_factor 
l_col_vaiues(lQ) = ObjRST.Fields(lO) 'mergejmrge.qty 
l_coI_values(il)= ObjRST.Fields(U) 'e_set_name 
Lcol_vaIues(12)= ObjRST.Fie!ds(12) 'r_set_name 
!_co!_values(13) = ObjRST.Fie^dsCU) 'PANEL_PfCG 
l_coi_values(14) - ObjRST.Fields(14) * subtotal flag 
i_col_values(15) « ObjRST.Fields(15) ' optional__efTort_id 
l_key - ObjRST.FicldsCFULL^PROMO.KEY") 

if I_debug = I then 

l_col_values(0) 



Response. Write 
Response. Write 
'Response. Write 
'Response. Write 
'Response. Write 
'Response. Write 
Response.Write 
Response. Write 
Response.Write 
Response.Write 
Response.Write 
Response.Write 
Response.Write 
end if 

end if 

objRST.close 
end if 



l_col_values(l) & "<br>" 
l_col_values(2) & H <br> M 
l_col_values(3) & n <br>* 
Lcol_valucs(4) & "<br>" 
l_col_vaJues(5) & "<br>" 
l_col_va!ues(6) & "<br>" 
l_col_values(7) & "<br>" 
l_cot_vaIues(8) & "<br>" 
l_coLvalues(9) & "<br>" 
l_col_values(10) & "<br>" 
I_col_vaIues(l 1) & "<br> M 
i_col_values(I2) & "<br>" 



end if 
fori^Oto 16 
ifi = 0 then 
l_col_types(i) = 0 
elseif i = 2 then 
l_col_types(i) - 0 
elseif i = 4 then 
l_col_types(i) = 2 

l_col_descl(i)="seiect list_cat_name from list_CATS where " _ 

& w PRODUCTJD= w & SessionfPRODUCTJD") & " order by ltst_cat_name " 
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I_col_desc2(i)="SELECT List Cat" 
elseif i = 5 then 
l_col_types(i) = 2 

]_coI_descl(i)="select list_Name from iist_names where " _ 

& M PRODUCT_ID= M & Session( M PRODUCT_ID") & H order by list_name " 
l__coI_desc2(iKSELECT List Name" 
elseif i = 6 then 
l_col_types(i) = 2 

l_col_descl(i)="select listjsegmentjiame from list_segments where H _ 

& w PRODUCT JD= tt & Sessicm("PRODUCTJD") & " order by Iist_segment_name " 
l_coLdesc2(i)= M SELECT List Segment* 
elseif i-8 then 
l_col_types(i) = 3 

l_col_descl(i)=="Mail Qty,Merge Purge Qty" 
l_col_desc2(i)= H SELECT List Cost Basis" 
elseif i = 1 1 then 
l_col_types(i) = 2 

Lcoi_dcscl(i)="selcct e_set_name from EXPENSE_SETS where " _ 

& " PRODUCTJD= rt & Session( w PRODUCT_ID M ) & " order by e_set_name * 
l_col_desc2(i)= ,, SELECT Expense Set" 
elseif i = 12 then 
l_col_types(i) = 2 

ljco1_dcsci(i)="sclect r_set_name from R£VENUE_SETS where " _ 

& " PRODUCT ID=" & Session( M PRODUCTJD") & ■ order by r_set_name ■ 
i_coI_desc2(i)= M SELECT Revenue Set" 
elseif i = 13 then 
I coI_types(i) = 2 

fcol_descl(iKse[ect package_name from PROD_PANEL_PACKAGE where * _ 

& M PRODUCTJD=" & Session( K PRODUCTJD") & " order by package_name " 
l_col_desc2(i)-"SELECT Panel Pkg* 
elseif i= 14 then 
l_col_types(i) = 3 
l_col_desc 1 (i)= , True,Falsc^pHt" 
t_col_desc2(i)= n SELECT Subtotal Flag" 
else 

l__col_types(i) = 1 

l^co^descKi^" " 

l_coi_desc2{i)=" " 

end if 

next 

* call setupTab's editmain to paint screen for user input 
editHeading l_fiie, l_fite, l_rec_id 

' call setupTab's editmain to paint screen for user input 

editComplex MTitleJjsetupTabLink, H \ UhowPrevSelection^.coLnamesJ.coLvaluesJ^oLtypes, l_coI_descl,l_col_desc2, 
l_ColumnCount 

f call setupTab's editBottom to close body, html, form 
editBottom 

%> 
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editlistcat.asp 

<%@ Language-VBScript %> 

<!-#include file-V./support/globaljttnstants.asp" -> 

<!- ^include f[le='\./support/dbConnection.asp" -> 

<!-#include fde='\./support/adoUtils.asp" -> 

<!-#include file^.ysupport/srcTab.asp" -> 

<!- ^include fde='\Vsupport/setupTab.asp" -> 

<% 

l_Co]umnCount = 2 
I_rec_id = Request.QueryString("Z") 
If Request.Form("UPDATEx") o then 
l_action = "Update" 

elself Request.form("DELETE.x") o then 
l_action = "Delete" 

end if 

!_sp_edit = "sp_Edit_Prod_List_Cat" 
IJile = "editListCatasp" 

dim I_col_names(2) 
dim l_col_values(2) 
l_Title = H List Category" 

l_setupTabLink - "setupListCat.asp" 
l_showPrevSelection= false 

l_co[_narnes(0) = "LIST CATEGORY" 
l_col_names(l) = "DESCRIPTION" 

I_query = "select LIST_CAT_NAME, LIST_CAT_DESCR " _ 
& " FROM List_cats K _ 
& " WHERE rec_id = " & cint(ljrccjd) 



' Response.Write l_recjd 
If (IsNumeric( I_rec_id) ) then 

if faction = "Update" or l_action = "Delete" then 

editAccept l_rec_id, I_action, I_ColumnCount, 1_setupTabLink,!_sp_edit 
else 

suSQL = l_query 

ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF « False) then 
l_col_values(0) = ObjRST.Fie!ds(0) 

l_col_values(l)- ObjRST.Fields(i) 

end if 

objRSTxlose 
end if 

end if 



1 call setupTab's editmain to paint screen for user input 
editHeading l_fite, IJile, l_rec_id 

'assign values to variables for setupTab's editMatn 



' call setupTab's editmain to paint screen for user input 
editMain LTit!eJ_setupTabLmU^^ 
' call setupTab's editBottom to close body, html, form 
editBottom %> 
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editlistname.asp 

<%@ Language-VBScript %> 

<!- # include file=",7support/globai_constants.asp" -> 

<!- # include ftle^Vsupport/dbConnectioaasp" --> 

<l— include fiIe=\./support/adoUtils.asp" -> 

<!- #include file=".Vsupport/srcTab.asp" -> 

<!— # include file="../support/setupTab.asp" -> 

<% 

dim l_col_names(2) 
dim l_coLvalues(2) 

IColumnCount - 2 
l_recjd - Request.QueryString("Z") 
If Request.Form("UPDATE.x") o then 
Inaction = "Update" 

elself Request.form("DELETE.x") o "" then 
l_action = "Delete" 

end if 

i_sp_edit ~ "spJEdit_Prod_List_Name" 
I_file = "editListName.asp* 
l_Title = " List Name " 
i_setupTabLtnk = "setupListName.asp" 
I_showPrevSetection= false 

l_col_names(0) - "LIST NAME" 
l_col_names(i) - "DESCRIPTION* 

l_query = "select LIST_NAME, List J4ame_description " _ 
& " FROM List_names " _ 
& " WHERE rec_id - " & cint(l_rec_id) 



• Response.Write i_rec_id 
If (IsNumeric( Ijrecjd) ) then 

if Inaction = "Update* 1 or faction = "Delete" then 

editAccept I_rec_id, l_action> l_ColumnCount, l_setupTabLink,l_sp_edit 
else 

strSQL = l_query 

ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF = False) then 
l_col_values(0) « ObjRST.Fields(O) 

LcoI_values(l)- ObjRST.Fields(l) 

end if 

objRST.close 
end if 

end if 



• call setupTab's editmain to paint screen for user input 
editHeading l_fiie, l_file, l_rec_id 

'assign values to variables for setupTab's editMain 



' call setupTab's editmain to paint screen for user input 

editMain l_TitieJ_setupTabLinkJ_showPrevSelectionJ_coLnamesJ_col_vahaes ) l_ColumnCount 
* call setupTab's editBottom to close body, html, form 
editBottom %> 
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editiistsegmentasp 



<%@ Language=VBScript %> 

<!-- ^include fiIe='\ysupport/globai_constants.asp" --> 

<!— #include file="„/support/dbConnection.asp" — > 

<!- #include file=*../support/adoUtiIs.asp rt -> 

<!- #inciude file=="„/support/srcTab.asp M -> 

<!- #include file="../support/setupTab.asp" -> 

<% 

l_ColumnCount = 2 
l_rec_id - Request QueryString("Z") 
If Request Form("UPDATE.x") o then 
l_action - "Update" 

elself Requestform("DELETE.x") o then 
faction = "Delete" 

end tf 

l_sp_edit = "sp_Edit_Prod_List_Segment N 
1 Jile = "ediLListSegmentasp" 

dim l_col_names(2) 
dim l_col_va!ues(2) 
1 JTitte = " List Segment " 

t_seiupTabLink - "setupListSegmentasp" 
I_showPrevSelection= false 

l_col_names(0) = "LIST SEGMENT" 
l_col_names(I) - "DESCRIPTION" 

t_query = "select list_segment_name, Iist_segment_description " 
& M FROM List_Segments " _ 
& " WHERE recjd = " & cint(!_recjd) 



' Response. Write l_rec_id 
If (IsNumeric( l_rec_id) ) then 

if l_action — "Update" or l_action = "Delete" then 

editAccept l_rec_id, l_action, l_Co!umnCount, i_setupTabLink,l_sp_edit 
else 

strSQL = l_query 

ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF = False) then 
l_col_values(0) » ObjRST.Fields(0) 

I_col_values(l)= ObjRST.Fields(l) 

end if 

objRST.close 
end if 



' call setupTab's editmain to paint screen for user input 
editHeading l_file, l_file, l_rec_id 

'assign values to variables for setupTab's editMain 



' call setupTab's editmain to paint screen for user input 

editMain l_TitleJ_setupTabLink,t_showPrevSelection,I_col_names,3_col_vaIuesJ_ColumnCount 
' call setupTab's editBottom to close body, html, form 
editBottom %> 



end if 
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editpanel.asp 

<%@ Language-VBScript %> 
<1- # include file=\./support/global__constants.asp'' -> 
<!- #include file^".Vsupport/dbConnection.asp" -> 
<t-#include file=*../support/adoUtiis.asp" -> 
<!- #include file="../support/srcTab.asp* -> 

<% 

l_debug - 0 

If RequestFormfUPDATRx") o "" then 

l_button== "Update" 
elself Requestform{"DELETE.x") o then 

l_button = "Delete" 
end if 

l_rec_id = Request. QueryString("Z ,, ) 
'Response. Write l_rec_id 
If (IsNumeric( !_rec_id) ) then 
if L_button = "Update" or l_button = "Delete" then 

l_panel_name - Request("P_PANEL_NAME") 

l_panel_type = Request("P_PANEL_TYPE H ) 

I __panel_subtype =Request{"P_PANELjSUBTYPE") 

Ijestjype =Request("P TEST_TYPE") 

l_paneI_ofTer =Request("P_PANEL_OFFER") 

I _panel_ofTer_price -Request("P_PANEL_OFFER_PRICE") 

l_panel_pkg =Request("P_PANEL_PKG") 

l_panel_premium =Request("P_PANEL_PREMIUM") 

1 _panel_date_start =Request("P_PANEL_DATE_START") 

l_panel_date_end =Request("P_PANEL__DATE_END") 

l_e set_name =Request("P_E_SET_NAME") 

l_r~set_name =Request("P_R_SET_NAME M ) 

I_newstand_sale_marker =Request("P_NEWSTAND_SALE_MARKER") 

objCMD. ActiveConnection = strSQLOLEDB 
objCMD.CommandText = H sp_edit_panei" 
USER SUPPLIED 
if l_debug= ! then 
Response. Write "l_panel_name " & l_panel_name & "<BR>" 

Response.Write "l_panel_type " & I_paneljype & "<BR>" 

Response. Write "l_panel_subtype " & l_panel_subtype & "<BR>" 

Response.Write "Ijestjype " & Ijcstjypc &"<BR>" 

Response.Write "l_panei_offer " & l_panei_offer & "<BR>" 

Response. Write "l_panei_offer_price " & l_panel_offer_price & "<BR>" 

Response. Write "t_panel_pkg " & l_panel_pkg & "<BR>" 

Response.Write "l_panel_premium " & lj)anel_premium & "<BR>" 

Response. Write "{_panel_date_start " & l_panei_date_start & "<BR>" 

Response.Write "1 _panet_date_end " & I_paneljiate jnd & *<BR>" 

Response.Write "Ijsjetjiarne " & l_e_set_name &"<BR>" 

Response.Write "l_r jetTname " & l_r_set_name & "<BR>" 

Response.Write "l_newstand jalejnarker * & ljiewstand_sale_marker & "<BR>" 

end if 

objCMD.CommandType ~ adCmdStoredProc 
objCMD.Parameters.Refresh 
objCMD.Pararneters(l). Value = l_panel_name 
objCMD.Parameters(2). Value = validateDate (i_panel_date_start ) 
objCMD.Parameters(3). Value - ValidatePickList (l_panel Jype) 
objCMD.Parameters(4).Value = ValidatePickList (l_panel_subtype ) 
objCMD.Parameters(5).Value = ValidatePickList (1 Jest Jype ) 
objCMD.Parameters(6). Value = ValidatePickList (l_panel_pkg ) 
objCMD.Parameters(7). Value - ValidatePickList (l_e_set_name ) 
objCMD.Parameters(8). Value - ValidatePickList (l_r_set jiame ) 
objCMD.Parameters(9). Value * ValidatePickList (l - newstand_sale_marker) 
objCMD.Parameters(lO). Value = session("U") 

SUPPLIED BY ME 

objCMD.Parameters(l 1). Value = l_rec_id 
if l_button = "Delete" then 
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' THis is the isDelete Parametere 

objCNtD.Parameters(12). Value = 1 

eise 

objCMD.Parameters( 12). Value = 0 

end if 

Set TempNonSessionVar = objCMD.ExecuteO 
Response.Redirect M admin6a.asp?display=l w 

else 

1 action = false 

strSQL = "select PANEL_NAM£, PANELJTYPE, PANELJSUBTYPE, " _ 

& " testtype, panel_offer, panel_offerjprice, paneljpkg, " _ 
& " panelpremium, panel_date_start, panel_datejend, - _ 

& 9 E_SET_NAME, R_SET_NAME, newstand_sale_marker * _ 

& " from PANELS " _ 

& " where recjd ~ " & cint(l_rec_id) 

ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

If (ObjRST.EOF - False) then 
1 panel name - objRST.Fields("PANEL_NAME") 

1 _paneLtype = objRST.Fields^PANEL_TYPE' , ) 

1 _panel_subtype =objRST.Fields( M PANEL_SUBTYPE") 

ljest_tvpe =objRST.FieIdsCTEST_TYPE w ) 

1 _panel_offer =objRST.FieldsCPANEL_OFFER M ) 

l_panel_offer _price «objRST.FieldsTPANELjOFFER_PRICE") 

l_panel_pkg =objRST.FieIdsC , PANEL - PKG") 

i _panet _premium -objRST.FieldsCPANEL_PREMIUM w ) 

_panei_date start =objRST.Fieids("PANEL_DATE_START") 

1 j>anel_date_end «objRST.FiddsCPANEL_DATE_END") 

l_e set_name =objRST.Fields( ,, E_SET_NAME ,, ) 

l_r~set_name -objRST.FieldsCR_SET_.NAME") 

l_newstar)d_saIe_ma^ker^bjRSTJieids( K newstand_sale_ma^ker ,, ) 

end if 

objRST.close 
end if 
end if 



%> 
<html> 
<head> 

<title>IMT Network</title> 
</head> 

<body bgco^or= ,, #99CCFF ,, vlink= n OOOOO<r link="003366"> 
<%' Response. Write *<BR> n & i_panel_name 

Response.Write *<BR> M & l_panel_type 
Response. Write "<BR>" & l_pane ^subtype 
Response.Write "<BR> K & 1 Jestjype 
Response.Write "<BR>" & 1 _panel_offer 
Response.Write "<BR>" & l_panel_offer_price 

Response.Write H <BR>" & 1 _pane t_pkg 
Response.Write "<BR> M & !_panel_premium 
Response. Write "<BR>" & l_panel_date_start 
Response.Write "<BR>" & l_panel_date_end 
Response.Write "<BR>" & t_e_set_name 
Response.Write "<BR>" & ljr_set_name 
%> 

<form method ! ="post" action="editPanel.asp?2=<%Response. Write l_rec_td %> M id=forml name-form 1> 
<table width= M 640" border-'O" cellpadding= w 2 ,t > 
<% prevSelections(5) %> 
<tr valign="top"> 

<td aIign="IefT width^^G" colspan= M 3"> 

<img src-V/graphics/editl 222.gif width="27" height-" 1 4"x/td> 
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</tr> 

<tr valign- 'top"> 

<td align^left" width="64{T colspan^^ 
<table width="50<T border="0" ce!lspacing="3" cetlpadding= M 2"> 
<tr vaiign- 'top"> 
<td height="25 w align="lefr> 
<div align=*lefVx/div> 
</td> 

<td height= t, 25 rt align="lcft"> 
<input type-lMAGE' Valuer" UPDATE" Name-'UPDATE n 

src=\ygraphics/submitl222.gif width="54" height="l6 M border="(T> 
<img src=\./graphics/blankl222.gif width-"2(T height="16" border=0> 
<SCRIPT LANGUAGE^* JavaScript! . 1 *> 

<!- Comment out script for old browsers 
taction confirm_deiete_panelO { 

return confirmfThis wi!i delete the panel and all its keys. This operation can not be undone. Are you 

sure you wish to delete this panel?*); 

} 

//-> 

</SCRIPT> 

<input type='IMAGE* Value—" DELETE" Name="DELETE H 

src= M .Vgraphics/deletel222.gif width="53" height-" 16" onClick="return confi^deietejjanelO" border=0> 

<font face="Verdana, Arial, Helvetica, sans-serif 
size=M"> 
<a href^ M admin6a.asp* , >Return 
to Panel</ax/fontx/td> 
</tr> 

<tr> 

<td bgcolor="003366" height^O" width="140" align="center"> 
<div align^center^ 

<font face="Verdana, Arial, Helvetica, sans-serif color='*#FFFFFF M > 
<bxfont size^"l M > 

PANEL NAME 
</fontx/bx/fontx/div> 
</td> 
<TD align^ H left"> 

<%if not l_action then %> 
<input type="TEXT NAME='P_PANEL_NAME 1 
td=0 value- <%Response. Write l_panel_name %>' maxlength=250> 

<% else 

Response. Write l_panel_name 
end if %> 

</td> 
</trxtr> 

<td bgcolor= H 003366" height="20" width-" 140" align^center 1 ^ 
<div align="center , '> 

<font face-"Verdana, Arial, Helvetica, sans-serif color= rt #FFFFFF M > 
<bxfont size= M r> 

PANEL START DATE 
</fontx/bx/fontx/div> 
</td> 

<TD align="teff > 

<%if not l_action then %> 

<input type="TEXr NAME-P_PANEL_DATE__START 
id=0 value='<%Response. Write l_panel_date_start %>'> 

<% else 

Response.Write l_panel_date_start 
end if %> 

</td> 
</trxtr> 

<td bgcolor="003366" height="20" width="l40" align="center*> 
<div align="center"> 

<font face="Verdana, Arial, Helvetica, sans-serif cotor="#FFFFFF"> 
<bxfont size= M l"> 

PANEL TYPE 
</fontx/bx/fontx/div> 
</td> 
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<TD align="left"> 
<%if not l_action then 
strSQL = "select PANEL_TYPE_NAME from CORP_PANELJYPE" 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, "p_panel_type",6, "SELECT TYPE", l_paneljype 
objRSTxlose 
else 

Response. Write l_panet_type 
end if %> 

</td> 
</trxtr> 

<td bgcoior="003366" height- rt 20 H width="140 M align= H center"> 
<div align^'center^ 

<font face="Verdana, Arial, Helvetica, sans-serif cotor="#FFFFFF*> 
<bxfont size=T> 

PANEL SUBTYPE 
</fontx/b></fontx/div> 
</td> 

<TD align="teft"> 

<%if not l_action then 

strSQL = "select PANEL_SUB_TYPE_NAME from CORP_PANEL_SUB JTYPE" 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, "p_panei_subtype",6, "SELECT SUB TYPE", l_j>anel_subtype 
objRSTxlose 
else 

Response. Write l_panel_subtype 
end if %> 

</td> 
</trxtr> 

<td bgcolor=* , 003366" height="20 H width="I4(T align="center"> 
<div align-"center"> 

<font face^* Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 
<bxfcnt size^* T> 

PANEL TEST TYPE 
</fontx/b></fontx/div> 
</td> 

<TD ahgn="left"> 
<%if not faction then 

strSQL - "select PAN E L_TEST_TYP E_N AME from CORP_PANEL_TEST_TYPE" 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
ShowQueryListBox objRST, "pjest_type*,6, "SELECT TEST TYPE", Ijestjype 
objRSTxlose 
else 

Response. Write Ijestjype 
end if %> 

</td> 
</trxtr> 

<td bgcolor="003366* height^O" width="14<T align s ="ccntcr"> 
<div align=*center"> 

<font face= M Verdana, Arial, Helvetica, sans-serif color=*#FFFFFF*'> 
<bxfont size=" l"> 

PACKAGE 
</fontx/bx/fontx/div> 
</td> 

<TD align="lefr> 



<%if not Inaction then %> 
<% strSQL = "select PACKAGE_NAME from PROD_PANEL_PACKAGE WHERE PRoductJd =" & 
Scssion("PRODUCTJD") 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
ShowQueryListBox objRST, M P_P ANELJPKG" & i,6, "SELECT PACKAGE", 

l_panel_pkg 

objRSTxlose 

%> 

<% else 

Response.Write l_panel_pkg 
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end if %> 

</td> 
</tr><tr> 

<td bgcolor="003366" height="2(T width="14(T align= M center"> 
<div align="center"> 

<font face=" Verdana, Arial, Helvetica, sans-serif color=* , #FFFFFF , '> 
<bxfontsize= M r> 

EXPENSE SET 
</fontx/bX/fontx/d iv> 
</td> 

<TDalign="left"> 



<%if not l_action then %> 
<% strSQL = "select e_set_name from EXPENSE_SETS where " _ 
& " PRODUCTJD-" & SessionCPRODUCTJD") 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimisttc 

showQueryListBox objRST, "p_E_SET_NAME" & i,6, "SELECT EXPENSE SET", l_E_SET_NAME 
objRST.ciose %> 

<% else 

Response. Write l_e_set_name 
end if %> 



</td> 
</trxtr> 

<td bgcolor="003366" height=*2(r width="140" align="center"> 
<div align="center"> 

<font face="Verdana, Arial, Helvetica, sans-serif color=' , #FFFFFF"> 
<bxfont size^"!^ 

REVENUE SET 
</fontx/bx/fontx/div> 
</td> 

<TD aiign="lerr> 

<%if not Inaction then 

strSQL - "select r_set_name from REVENUE_SETS where " 
& " PRODUCT JED-" & Session("PRODUCT_lD") 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

showQueryListBox objRST, *p_r_SET_NAME\6, "SELECT REVENUE SET", 

1_R_SET_NAME 

objRST.ciose 
else 

Response. Write 1_R_SET_NAME 
end if %> 

</td> 
</tr> 

<tr> 

<td bgcolor= tt 003366" height="20" width= M 140" align="center"> 
<div aJign="center"> 

<font face^Verdana, Arial, Helvetica, sans-serif coIor="#FFFFFF"> 
<bxfontsize="l"> 

NEWSSTAND SALE 
</fontx/bx/fontx/div> 
</td> 

<TD align= B "left"> 

<%if not l_action then 
dim vals 

vais = "N,Y" 

showLOVListBox vals, "P_NEWSTAND_SALE_MARKER", 2, "— ",l_newstand_sale_markcr 
%> 



<% else 

Response. Write l_panel_date_start 
end if %> 

</td> 
</tr> 
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</tabIe> 

</td> 
</tr> 

</tab!e> 



<P> </P> 

</BODY> 
</HTML> 
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editpanelpackagcasp 

<%@ Language=VBScript %> 

<!— ^include file-"„/support/g!obai_constants.asp" ~> 

<!- #inciude file=".Vsupport/dbConnection.asp n -> 

<!- #include file- Wsupport/adoUtils.asp" -> 

<!- ^include file=",./support/srcTab.asp" -> 

<!-#include fiIe="../support/setupTab.asp" ~> 

<% 

l_ColumnCount = 2 
l_rec_id = RequestQueryString("Z") 
If RequestForm("UPDATE.x") o "" then 
Inaction = "Update" 

elself Request.form("DELETE.x") o then 
l_action = "Delete" 

end if 

l_sp_edit - "sp_Edit_Prod_Panel_Package" 
dim !_coi_names(2) 
dim l_coI__va!ues(2) 
l_Title ~ " Panel Package " 
l_setupTabLink = "setupPanelPackage.asp" 
i_showPrevSelection= false 
l_file = "editPanelPackage.asp" 

l_coi_names(0) = "PANEL PACKAGE" 
l_col_names(l) - "DESCRIPTION" 

Lquery = "select Package_NAME, PACKAGE_DESCRIPTION " _ 
& " FROM prod_panel_package " _ 
& " WHERE recjd = " & cint(l_recjd) 



' Response. Write l_rec_id 
If (IsNumeric( l_recjd) ) then 

if l_action = "Update" or I_action = "Delete" then 

editAccept i_rec_id, inaction, l_ColumnCount, l_setupTabLink,l_sp_edit 

else 

strSQL = Lquery 

ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF - False) then 
LcoLvaiues(O) = ObjRST.Fields(O) 

l_col_values(l)= ObjRST.Fields(l) 

end if 

objRST.close 
end if 

end if 



' call setupTab's editmain to paint screen for user input 
editHeading l_file, l_file, l_rec_id 
'assign values to variables for setupTab's editMain 
* call setupTab's editmain to paint screen for user input 

editMain ljritIe,l_setupTabLink,l_showPrevSelectionJ_col_names,l_col_vaIues,l_ColumnCount 
' call setupTab's editBottom to close body, html, form 
editBottom %> 
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editpaneisubtvpe.asp 

<%@ Language=VBScript %> 

<!-#inc!ude file=".Jsupport/global_constants.asp" -> 

<!-#include file^.ysupport/dbConnection.asp" -> 

<!- # include fHe^\./support/adoUtiIs.asp" -> 

<!- #include fiie="../support/srcTab.asp" -> 

<!-#inciude fiIe=".Jsupport/setupTab.asp" -> 

<% 

!_Co!umnCount - 2 
l_rec_id = Request.QueryStringCZ") 
If Request Form(" UPDATE.x") o then 
l_action = "Update" 

elsclf Request.fo^m("DELETE.x ,, ) o "* then 
l_action = "Delete" 

end if 

i_sp_edit ~ "sp_Edit_Corp_Panel_Sub_Type" 
dim l_col_names(2) 
dim l_col_values(2) 
iJTitle = "Panel Sub Type" 
i_setupTabLink = "setupPanelSubType.asp" 
i_showPrevSeIection= false 
1 Jile - "editPanelSubType.asp" 

l_col_names(0) = "PANEL SUB TYPE" 
l_col_names(l) - "DESCRIPTION" 

l_query - "select PANEL_SUB_TYPE_NAME, PANEL_SUB_TYPE_DESCR " _ 
& * FROM corp_paneI_sub_type 
& " WHERE recjd = " & cint(Uec_id) 

' Response. Write I_recjd 
If (IsNumeric( l_rec_id) ) then 

if t_action = "Update" or l_action = "Delete" then 



editAccept I_rec_id, faction, l_ColumnCount, l_setupTabLink,l_sp_edit 
else 

strSQL = l_query 

ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF = False) then 
I_col values(0)-ObjRST.Fie!ds(0) 

I_col_values(l)- ObjRST.Fields(l) 

end if 

objRSTxlose 
end if 

end if 



* call setupTab's editmain to paint screen for user input 
editHeading l_file, l_file, l_rec_id 

'assign values to variables for setupTab's editMain 



' call setupTab's editmain to paint screen for user input 

editMain l_TitIeJ_sempTabLink ) i_showPrevSeiection,l_col_names,I_col_values,l_ColumnCount 
' call setupTab's editBottom to close body, html, form 
editBottom %> 
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editpaneltesttvpcasp 

<%@ Language=VBScript %> 

<!--#inciude fi[e=".Vsupport/globa[_constants.asp M -> 

<!- # include fiie^.Vsupport/dbConnection.asp" -> 

<!~#include file= M .Vsupport/adoUtils.asp" -> 

<!- ^include fiie=*'../support/srcTab.asp" --> 

<!-- # include file="../support/setupTab.asp" -> 

<% 

l_ColumnCount - 2 
l_rec_id = Request.QueryString("Z") 
If RequestForm("UPDATE.x") o "" then 
l_action = "Update" 

elself Request. form(" DELETE, x") o then 
l_action = "Delete* 1 

end if 

L s P_ edit = "sp_Edit_Corp_Panel_Test__Type M 

dim I_col_names(2) 

dim l_col_values(2) 

I Title = "Panel Test Type" 

l_setupTabLink - "setupPanelTestType.asp" 

l_showPrevSeiection= false 

IJiie = "edttPanelTestType.asp" 

l_col_names(0) = "PANEL TEST TYPE" 
l_col_names(l) = "DESCRIPTION" 

l_query = "select PANELJTESTjrYPE_NAME, PANEL_TEST_TYPE_DESCR " _ 
& " FROM corp_panei_test_type 
& " WHERE rec_id = " & cint(t_rec_id) 

' Response. Write l_recjd 
If (lsNumeric( Ijrecjd) ) then 

if faction = "Update" or I_action = "Delete" then 



editAccept l_recjd, l_action, i_ColumnCount, l_setupTabLink,i_sp_edit 
else 

strSQL = l_query 

ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF = False) then 
l_col_values(0) = ObjRST.Fields(O) 

l_col_values(l) = ObjRST.Fields(l) 

end if 

objRSTxIose 
end if 

end if 



' call setupTab's editmain to paint screen for user input 
editHeading l_file, l_file, 1 _rec_id 

'assign values to variables for setupTab's editMain 



' call setupTab's editmain to paint screen for user input 

editMain l_Title,l_setupTabLink,l_showPrevSelection,I_col_names,l_col_values,l_CoIumnCount 
1 call setupTab's editBottom to close body, html, form 
editBottom %> 
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editpaneitvpe.asp 

<%@ Language= VBScript %> 

<!- #inciude flie^"../support/gIobaI_constants.asp" ~> 

<!-#include fi!e^ M .7support/dbConnection.asp" -> 

<!- # include fi!e= w .7support/adoUtiIs.asp" -> 

<!- #include file^V/support/srcTab.asp" — > 

<!- ^include file="../support/setupTab.asp" -> 

<% 

l_ColumnCount = 2 
l_recjd = Request.QueryStringCZ") 
If Request FormfUPDATRx") o H " then 
l_action = "Update" 

elself RequesLformCDELETEx") o Mfl then 
l_action - "Delete" 

end if 

Lsp-^it = "sp_Edit_Corp_Panel_Type w 
dim l_col_names(2) 
dim t_col_vaIues(2) 
l_Title - "Panel Type" 
I_setupTabLink = "setupPanelType.asp H 
IjshowPrevSelection^ false 
I_file = "editPanelType.asp" 

l_coi_names(0) = "PANEL TYPE" 
l_coi_names(I) = "DESCRIPTION" 

t_query = "select PANEL_TYPE_NAME, PAN E L_T Y P E_D ESC R " _ 
& " FROM corp_panel_type * _ 
& " WHERE rec_id = " & cint(l_rec_id) 

* Response. Write l_rec_id 
If (IsNumeric( I_rec_id) ) then 

if l_action = "Update" or faction - "Delete" then 



editAccept l_rec_id, l_action, l_ColumnCount, l_setupTabLinkJ_sp_edit 
else 

strSQL = i_query 

ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF = False) then 
t_col_values(0) = ObjRST.FieIds(0) 

l_col_vaiues(l) - ObjRST.Fields(l) 

end if 

objRST.close 
end if 

end if 



' call setupTab's editmain to paint screen for user input 
editHeading l_file, l_ftle, l_rec_id 

'assign values to variables for setupTab's editMain 



' call setupTab's editmain to paint screen for user input 

editMain l_TitieJ_setupTabLinkJ_showPrevSeiection,l_col_names,l_col_values > l_CoIumnCount 
1 call setupTab's editBottom to close body, html, form 
editBottom %> 
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editpriorsrcdescasp 

<%@ Language-VBScript %> 

<!- # include fiIe="../support/gIobal_constants.asp* 

<!- # include file^ysupport/dbConnection.asp" -> 

<!-#inc!ude flle^.ysupport/adoUtils.asp" -> 

<!- # include file^Jsupport/srcTab.asp" -> 

<!- ^include fIle=^7support/setupTab.asp ,, -> 

<% 

dim I_col_names(8) 
dim l_col_vaiues(8) 

IColumnCount - 8 
l_rec_id = RequestQueryStringCZ") 
If RequestFormCUPDATRx") o then 
l_action - "Update" 

elself Request form("DELETE.x") o then 
l_action= "Delete" 

end if 

l_rec_id = RequestQueryString(*Z") 
l_sp_edit - "sp_edit_prior_Source_desc* 
l_fjle= "editPriorSrcDescasp" 
MTitle = "Prior Source Description* 
l_setupTabLink = "setupPriorSrcDesc.asp" 
!_showPrevSe!ection- false 

! query = "select prior.sourcejdentifter, prior_source_desc, biliing_cur_src_desc, model_source_cat, 
model_source,agent_src_desc , valid_from_date , " _ 

& " valid_to_date " _ 

& * FROM Prior_source_desc " _ 

& • WHERE recjd = " & cint(l_rec_id) 

if (l_action = "Update" or i_action = "Delete") and isnumeric(l_rec Jd) then 

'edilAccept L rec J d > L action * L ColumnCount » i_setupTabUnk,l_sp_edit 

priorjourcejdentifler = request.form("P_0") 

prior_source_desc = request form{"P_r) 

billing^cur_src_desc = requestform("P_2") 

model_source_cat = request form("P_3") 

model_source - request. form("P_4 M ) 

agent_src_desc = request. form("P_5 ri ) 

valid_from_date = request form("P_6") 

valid_to_date = requestform("P_7") 

*response.write(prior_source_identifier & "<br>") 
*response.write(prior_source_desc & "<br>") 
'respor£e.write(billing_cur_src_desc & "<br>") 
'response. write(model_source_cat & "<br>") 
'response.\vrite(model_source & "<br>") 
'respor£e.write(agem_src_desc & "<br>") 
'response. write(validJrom_date & "<br>") 
'response. write(valid_to_date & "<br>") 
'response.write(l_action) 
'response.write(l_recjd) 

objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_edit_prior_source_desc' t 
objCMD.CommandType = adCmdStoredProc 
objCMD.Parameters.Refresh 

objCMD.Parameters(i). Value - prior_source_identifier 
objCMD.Parameters(2). Value = prior_source_desc 
objCMD.Parameters(3).Value = billingj;ur_src_desc 
objCMD.Parameters(4). Value = model_source_cat 
objCMD.Parameters(5). Value model_source 
objCMD.Parameters(6). Value = agent_src_desc 

if valid_from_date > " " then objCMD.Parameters(7). Value = valid_from_date else objCMD.Parameters(7). value = null 
if va!id_to_date > " " Then objCMD. Parameters®. Value = valid_to_date else objcmd.Parameters(8). Value = null 
objCMD.Parameters(9). Value = l_rec_id 
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if raction=*Update M then objCMD.Parameters( 10). Value = 0 
if l_action="Delete" then objCMD.Parameters( 10). Value - 1 
Set TempNonSessionVar = objCMD.Execute() 
Response.Redirect l_setuptablink 

else 

strSQL-l_query 

ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF - Faise) and isnumertc(l_rec_id) then 

prior_source_identifier = objRST( M prior_sourcejdentifier M ) 
prior_source_desc - objRST("prior_source_desc") 
billing_cur_src_desc - objRST( M biIIing_cur_src_desc") 
model_source_cat - obiRSTCmodeLsource^cat") 
modeI_source = objRST( M model_source") 
agent_src_desc = objRST( M agent_src_desc") 
valid_from_date = objRST( H valid_from_date H ) 
vaiid_to_date - objRST( M valid_to_date tt ) 

end if 
objRST.close 
end if 



%> 

<html> 
<head> 

<titIe>You are on editPriorSrcDesc.asp</titlex/head> 

<body bgcolor="#99CCFF w v!ink= ,, 000000 M link="003366 ,, > 

<form method-^posf action^ M editPriorSrcDesc.asp?Z=<%=I_recJd%>* , > 



<tab!e BORDER- W 0"> 



<tr valign^top^ 

<td align-'MefV* width-^O" coIspan= w 3"> 

<img src^../graphics/editl222.gir width="27" height-" 14"> 

</td> 

</tr> 
<tr valign="top"> 

<td aiign-'MefT width-^^ coIspan="3 M > 

<table widths" 500* border-*0" cellspacing-^" ce!Ipadding= M 2 M > 

<tr valign-"top M > 

<td height= H 25" aiign="left H > 

<div align- M Iefrx/div> 

</td> 

<td height= M 25 M align= n Iefr> 

<input type=" IMAGE" Value= H UPDATE" Name-" UPDATE" 
src-^graphics/submitl222.gir width- ,, 54' f height- M i6* border= M 0"> 

<img src="Jgraphics/blank 1222.gif width^O" height 16" 

border-"0"> 

<inputtype= H IMAG£" Value="DELETE M Name="DELETE' 1 
src= M .ygraphics/deietel222.gir width- 1 ^" height= H l6 M bordei^O 

<br> 

<font face-" Verdana, Arial, Helvetica, sans-serif size-M"> 
<a href^"setupPriorSrcDesc.asp H >Return to Prior Source 

Description Setup Table</a> </font> 

</td> 

</tr> 
<tr> 

<td bgcoio^- ,, 003366 ,, height="20 n width-** 140* align=*center"> 
<div aIign= rt center H > 

<font face="Verdana, Arial, Helvetica, sans-serif 

coIor= M #FFFFFF M > 

<bxfont size-" 1 ">PRIOR SOURCE 

IDENTIFIER</fontX/bX/fontX/div> 

</td> 

<td align= M LEFT> 

<font face-* 1 Verdana, Arial, Helvetica, sans-serif 

cotor= t, #FFFFFF* , > 
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value="<%^pnor_source_identifier %>"> 



</tr> 
<tr> 



coloi=WFFFFF"> 
DESC</fontx/bx/fontx/div> 

color= M #FFFFFF"> 
value= M <%=prior_source_desc%>"> 



</tr> 
<tr> 



coior= N #FFFFFF t, > 
DESC</fontx/bx/fontx/div> 

color^SFFFFFF*^ 

value="<%=b ill ing_cur_src_desc%>"> 



</tr> 
<tr> 



color="#FFFFFF"> 

CATEGORY</tbntx/bx/fontX/div> 
color= M #FFFFFF"> 



<input type= n TEXT H NAME="PJT id="P_0" 
</font> 



</td> 



<td bgcolor= w 003366 f ' height-"20" width= M l4<T aiign^'center^ 
<div align =( *center"> 

<font face=" Verdana, Anal, Helvetica, sans-serif 
<bxfont size="r>RENEWAL PRIOR SOURCE 

</td> 

<td align="LEFT"> 

<font face="Verdana, Arial, Helvetica, sans-serif 

<inputtype=TEXT rt NAME="P_P id= H P_l" 

</font> 
</td> 



<td bgcoior^OtmSe* height^O" width="14(T align="center"> 
<div align="center"> 

<font face= M Verdana, Arial, Helvetica, sans-serif 
<bxfont size-" I ">BILLINGS CURRENT SOURCE 

</td> 

<td align="LEFT> 

<font face= H Verdana, Arial, Helvetica, sans-serif 

<input type-TEXT" NAME— "P_2 M id= M P_2 M 

</font> 

</td> 



<td bgcolor="003366" height="20 w width="140" aiign="center M > 
<div align="center"> 

<font face="Verdana, Arial, Helvetica, sans-serif 
<bxfont size- B r>MODEL SOURCE 

</td> 

<td aiign="LEFT H > 

<font face="Verdana, Arial, Helvetica, sans-serif 



<S ELECT name="P_3 M id-"P_3 M > 
<% strSQL - "select src_cat_name from src_category where 

product id = M & SessionrPRODUCT ID") & " order by src_cat_name w 

ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, 

adLockOptimistic 

while notobjRST.eof 

response. write("<OPTION ") 

if objRST(O) - modei_source_cat then response.write (* 

selected ") 

response.write (" vaiue=" & objRST(O) & ">" & 

objRST(O) & M </OPTION> M ) 

objRST.movenext 

wend 

objRSTxlose 
%> 

<%*<input type— "TEXT" NAME- , P_3" 

value="<%=model source_cat%> 
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</font> 



</td> 



</tr> 
<tr> 



color=*#FFFFFF*> 

DESCRIPTION</font><^bx/fontx/div> 

color=^FFFFFF"> 
va]ue="<%=model source%>"> 



</tr> 
<tr> 



color= M #FFFFFF ,1 > 

DESCRIPTION</fontx/b></fontx/div> 

coior= M #FFFFFF"> 
vaiue="<%^agent_src_desc%>"> 



</tr> 
<tr> 



coior^FFFFFF^ 
DATE</fontx/b></fontx^div> 

coior= M #FFFFFF M > 
value=*'<%=*vatfd from date%>"> 



<td bgcolor="003366" height= w 2(r width^MO" align^center^ 
<div align^center'^ 

<font face= H Verdana, Arial, Helvetica, sans-serif 
<bxfont S ize=" 1 M >MODEL SOURCE 

</td> 

<td align-TEFT^ 

<font face= w Verdana, Arial, Helvetica, sans-serif 

<inputtype-"TEXr NAME="P_4" id="P_4 H 

</font> 

</td> 



<td bgcolo^-Of^e** height^CT widths" 1 40" aiign="center"> 
<div aIign- M center rt > 

<font face^Verdana, Arial, Helvetica, sans-serif 
<bxfont size=T> AGENT SOURCE 

</td> 

<td align^LEFT^ 

<font face-"Verdana, Arial, Helvetica, sans-serif 

<input type-TEXT" NAME="P_5" 

</font> 

</td> 



<td bgcolop=''003366 , ' height="2(r width^" 140* aJign= M center"> 
<div align="center"> 

<font face="Verdana, Arial, Helvetica, sans-serif 
<b><font size=" 1 ">VALID FROM 

</td> 

<td align="LEFT"> 

<font face="Verdana, Arial, Helvetica, sans-serif 



<input type^TEXT" NAME= ,1 P_6' 1 
</font> 



</td> 



<Ar> 
<tr> 



color="#FFFFFF M > 

color= M #FFFFFF"> 
value= M <%= B valid to date%>"> 



<td bgcolor= w 003366" height^O" width** 140" aHgn="center w > 
<div align- 'center"> 

<font face="Verdana, Arial, Helvetica, sans-serif 

<bxfont size=" 1 "> VALID TO DATE</fontX/bX/f 0 ntx/div> 

</td> 

<td aiign=*LEFT*> 

<font face^ Verdana, Arial, Helvetica, sans-serif 

<input t>pe="TEXT n NAME= W P_7" 

</font> 
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</td> 

</tr> 

</tab!e> 
</TD> 

</TR> 
</TABLE> 
</form> 
</body> 
</html> 
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edttrsetasp 



<%@ Language=VBScript %> 



<!- # include file=". /support/global_constants.asp" -> 
<!- #include file- '../support/dbConnection.asp* -> 
<!- # include file- '../support/adoUtils.asp" -> 
<!- # include ftle^.Ysupport/srcTab.asp" -> 
<!- ^include file=".Vsupport/pickListObj.asp" -> 
<!- tfinclude file^Vsupport/JavaScripts.asp" -> 

<% 

dim DEBUG 
DEBUG - false 

dim l_Iabei(10) 
dim l_values(33) 
'dim l_basis_opt(10)(7) 

Uabel(O) = "Sub Revenue" 

Habei(l) = "Ad Revenue" 

ljabe!(2) = "List Rental Revenue" 

l_iabel(3) « "Other Revenue" 

l_rec_ID = Request.QueryString("Z") 



If RequestFormCUPDATE.x") o then 

l_action ~ "Update" 
elsetf Request. form("DELETE.x") o "" then 

l_action= "Delete" 
else 

l_action = "x M 

end if 



'Response. Write "Hate " & l_action 
If l_action = "Update" or l_action = "Delete" then 
' Response. Write "Save or Delete Invoked" 
'if Request. Form("P_R£C_ID") > " " then 

l_rec_id = Request("P_REC_ID") 
* Response. Write "<BR>Rec id=" & I_rec_id & &Request("P_REC JD") & "=<BR>" 
fori = 0to 7 

l_values(i) = Request. Form("P_" & i ) 

next 

I_r_set_name = Request. Form("P_R_SET_NAME") 

'onse. Write "<BR>Rec id " & RequestForm("P_R_SET_NAME") & "<BR>" 
if t_r_set_name > " " then 

objCMD. ActiveConnection = strSQLOLEDB 

objCMD.CommandText - "sp_edit_prod_r_set" 

objCMD.CommandType = adCmdStoredProc 

objCMD.Parameters.Refresh 
USER SUPPLIED 

objCMD.Parameters(l). Value - SessionCPRODUCTJD") 

objCMD.Parameters(2). Value =l_r_set_name 

for k = 0 to 7 

IF DEBUG = TRUE THEN 
Response. Write (k +3) & " " & k & " " & l_va!ues(K) & "<br>" 
END IF 

Response. Write "<BR>l_vaiue " & I_values(k) & "<BR>" 
ifk mod 2 = 0 then 

objCMD.Parameters(k + 3). Value = vaIidateNumber(l_values(k)) 
else 

objCMD.Parameters(k + 3).VaIue = validatePickList(I_values(k)) 
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end if 
next 

Response. Write k 



Response. Write "<BR>Rec id * & l__rec_id & *<BR>" 
objCMD.Parameters( U). Value = 



\ rec id 



if l_action - "Delete* 1 then 

objCMD.Parameters(12).Value = I 
else 

objCMD.Parameters( 12). Value = 0 
end if 

Set TempNonSessionVar « objCMD.ExecuteQ 



end if 

'end if 

Response.Redirect "setupRsetasp" 
else 

l_action - "Edit" 
' Response. Write " Edit Invoked" 
strSQL = "select " _ 

& " product_id rO, " _ 

<& "r_set_name rl," _ 

& "subs_revenue r2," _ 

& "subs_cpm_cpu r3," _ 

& "ad_revenue r4, H _ 

& M ad_q)m_cpu r5," _ 

& M listrental_revenue r6," _ 

& "listrental_cpm_cpu r7," _ 

& "other_revenue r8," _ 

& "other_cpm_cpu r9" _ 

& " from revenue_sets " _ 

& "where rec_id = " & l_rec_id 

* Response. Write strSQL 

ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
l_product_id = ObjRST.fte!ds(0) 
L_r_set_name = ObjRST.fields(l) 
for i = 0 to 7 

l_values(i) « ObjRST.fields(i + 2) 
' Response.Write i + 1 & " " 
next 

ObjRST.close 
end if 

'Response.Write "Hate " & l_action 
%> 

<HTML> 
<HEAD> 
<title>editRsetasp 
</title> 

<META NAME= w GENERATOR" Content=" Microsoft Visual Studio 6.0"> 
</HEAD> 

<script language^JavaScript^ 
<t_ 

function MM_swapImgRestore() { "v2.0 
if (document.MM_swapImgData != null) 
for (var i=0; i<(document.MM_swapImgData. length- 1); R=2) 
document.MM_swap!mgData[i].src = documcntMM_swapImgData[i+l]; 

} 

function MM_preloadImages() { //v2.0 
if (document. images) { 

var imgFiles = MM_preIoadImages.arguments; 

if (document.preloadArray==null) document.preloadArray - new ArrayO; 
var i = documentpreload Array, length; 

with (document) for (var j=0; j<imgFi!es. length; j++) if (imgFiles[j].charAt(0)!=' , #"){ 
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preloadArray[i] = new Image; 
preioadArray[i++].src - imgFiles[j]; 
}} 

} 

function MM_swapImageO { //v2.0 

var i jH>,objStr,obj\swapArray=new Array,oi<lArray=document MM_swaplmgData; 
for (i=0; i < (MM_swapImage.arguments.length-2); i+=3) { 
objStr = MM_swapImage.arguments[(navigator.appName — f Netscape')?i:t+l]; 
if ((objStr.indexO^documenLlayersC)^ && documentlayers=nuil) || 
(objStr.indexOfCdocumentalin =-0 && document.aU =nutl)) 
objStr = Mocument*^bjStr.substring(objStrJastIndexOf( , . , XobjStrJength); 
obj = evaJ(objStr); 
if(obj !«null){ 
swapArray[j-H-] = obj; 

swapArray[j-^] = (oidAiray— null || oIdArray[j-l]!=obj)?obj.src:ol<IAnay[j]; 
obj.src - MM_swapImage.arguments[i+2]; 

document.MM_swapImgData - swapArray; //used for restore 

> 

//-> 

</scripP" 

<body bgcoIor="#990CFF" vlink="000000" iink= H 003366"> 



<form method^posf action="editRSetasp" id=forml name=forml> 
<% If i_rec JD > " " then %> 

<Input type^HIDDEN" nanu^^RECJD" value=*<% Response. Write !_rec_id %>*> 
<% end if %> 
<TABLE BORDER=0 widuV="31 T > 

<tr vaHgn="top ,, > 
<td align-left* colspan= H 3" height="20 M > 
<tab!e width-" 1 00%" border=*0" celispacing^O" cellpadding= M 0' , > 
<tr> 

<td width- M 25%"ximg src=".ygraphics/editI222.gir width="27" height= ,, 14''X/td> 
<td width= M 35%' , > </td> 
<td width^TO" align^right^ 
<div aiign="righr> </div> 
</td> 

<td wtdth^O" align= M righf> 
<dtv align= w right' , > </div> 

</td> 
</tr> 
<tr> 

<td width="25% w > </td> 
<td width=*35%"> </td> 
<td width^O" align= M right ,, > 
<input type^ IMAGE' value="UPDATE" name="UPDATE M 

src= M .7graphics/submitl222.gir width^ 1 ^* height^" border**^ 

</td> 

<td width^"70 w align=**righr> 

<input type-IMAGE' vaiue^DELETE" n am e=" DELETE" 

src=\./graphics/de!etei222.gif width= M 53 n height^' 16" border^O^ 
</td> 
</tr> 
<tr> 

<td width= H 25% M > </td> 

<td width="35% M colspan="3* align= M right" height= M 24 H valign= rt bottom"> 
<div aiign="righf xfont face="Verdana, Arial, Helvetica, sans-serif size- M -4*xa href="setupRset.asp M >Return 

to Revenue Set Setup Table</ax/fontx/div> 
</td> 
</tr> 
</tab!e> 
</td> 
</tr> 
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<tr> 

<td width= fl 150" align-*' center" height^ l(T> </td> 

<TD align= M LEFT height-M(T> </td> 
</tr> 
<tr> 

<td bgcoior= w 003366 M height= w 20" width=*109 rt align^center^ 
<font face=*Verdana, Arial, Helvetica, sans-serif coIor= ,, #FFFFFF w > 
<bxfontsize= ,, r> 
Revenue Set 

</fontx/b></fontx/td> 
<td co!span i= "2 ,, > 
<input type^TEXT" name= , p_r_set_name' 

id=0 va!ue-<%Response. Write l_r_set_name %>* size=*27"> 

</td> 
</tr> 
<% 

for i=0 to 3 
%> 
<tr> 

<td bgcolor="0G3366 w height^O' 1 width= M 109" align= H center"> 
<font face^Verdana, Arial, Helvetica, sans-serif colors FFFFFF"> 
<bxfontsi2e="r> 
<% 

Response. Write IJabel(i) 
%> 

</fontx/bX/fontx/td> 
</td> 
<% 

forj^Oto 1 
in_cnt= i * 2 +j 
%> 

<td> 

<% if j = I then %> 

<SELECT name- P_<%Response. write in_cnt %>*> 
<% if !_values(in_cnt) = "CPM" then %> 
<OPTION value=0>CPM or CPU 
<OPTION value ='CPM , seIected>CPM</option> 
<OPTION value ^CPU 1 >CPU</option> 
<% elseif l_vatues(in_cnt) « "CPU" then %> 

<OPTION value=0>CPM or CPU 
OPTION value =*CPM*>CPM</option> 
<OPTION value -CPU' selected>CPU</option> . 
<% else %> 
OPTION vaiue=0>CPM or CPU 

OPTION value ='CPM f >CPM</option> 
OPTION value ^CPU^PU^optun^ 
<% END IF %> 
</Select> 

<%elseifj = 2then%> 

<% else %> 

<input tvpe^TEXT" NAME='P_<%Response. write in_cnt %>' 
<%ift_action="Edit M then %> 

value^^Response.Write l_values(in_cnt) %>' 
<%end if %> 
size =12> 
<%end if%> 
</td> 

<% next %> 

</tr> 

<% next %> 

</table> 

<p> </p> 
</form> 
</BODY> 
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</HTML> 
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editsource.asp 

<%@ Language^ VBScript %> 
<!- #inc!ude file=Vsupport/global_constants.asp" -> 
<!- #inciude file="../support/dbConnection.asp" -> 
<!_ #inciude file^.Vsupport/adoUtiis.asp" -> 
<!- ^include file^.isupport/srcTab.asp" -> 

<% 

If RequestForm("UPDATE.x") o then 

l_button = "Update" 
elself Request form("DELETE.x M ) o then 
i_button = "Delete" 
end if 

l_recjd - RequestQueryString("Z") 
'Response. Write I_rec_id 
If (IsNumeric( l_recjd) ) then 
if l_button - "Update" or l_button = "Delete" then 
l_action = true 

l_source = RcquestFonnO>jSOURCE") 
Lsrcjnd - RequestFomi("P_SRC JND") 

objCMaActiveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_edit_source" 
objCMD.CommandType ~ adCmdStoredProc 
objCMD.Parameters.Refresh 
objCMD.Parameters(l). Value = l_source 
objCMD.Parameters(2). Vaiue = l_src_ind 
objCMD.Parameters(3). Value = Session("U") 
objCMD.Parameters(4). Value - cint(l_rec_id) 
if l_button = "Delete* then 
objCMD.Parameters(5). Value = 1 
else 

objCMD.Parameters(5). Value = 0 
end if 

Set TempNonSessionVar = objCMD.ExecuteO 
Response.Redirect "admin4a,asp?display s = 1 " 

I_action = true 

]_source - Request.Form("P_SOURCE") 
ljsrcjnd = Request. Formf P_S RCJND") 

else 

l_action ~ false 

strSQL = "select SOURCENAME, SRC_INDICATOR from SOURCE where " _ 
& " rcc_id - " & l_rec_id 
ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF - False) then 
Lsourcc - ObjRST.Fields("SOURCE_NAME") 
l_src_ind = ObjRST.Ficlds("SRC_INDICATOR") 
end if 

ObjRST.close 
end if 
end if 



%> 
<html> 
<head> 

<title>EditSource.asp</title> 
</head> 

<body bgcolor="#99CCFF" vlink="00000(T Iink«*003366 H > 
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<form method= tt posf action="editSource.asp?Z=<%Response.Write l_rec_id %> M id=forml name=forml> 
<table width^^t)" border= n CT cellpadding= H 2"> 
<% prevSelections(3) %> 

<tr valign- fl top* , > 

<td aiign= H Iefr width- w 640 w colspan^ximg src='\. /graphics/edit 1222.gif width="27 fl height-" I4"x/td> 
</tr> 

<tr valtgn="top H > 

<td align="lefr width="640" coIspan="3"> 
<table width="50<T border= M 0" cellspacing= M 3" cdlpadding= M 2 H > 
<tr vaiign :=: "top"> 
<td height="25" align^left^ 
<div align^leffx/di^ 
</td> 

<td height="25* a!ign= M ieft M > 

<input type- IMAGE' Val ue- " UPDATE" Name= M UPDATE" 
src^Vgraphics/submitl 222.gif width^ 1 ^" height="16' 1 border="0"> 
<imgsrc- M ../graphics/blank 1222.gif width^O" height 16" border=0> 
<%' <inputtype= , IMAGE 1 Value^DELETE" Name= H DELETE" 

'src-rVgraphics/deletel 222.gif width= w 53" height^" 1 6" border=0> %> 
<font face="Verdana, Arial, Helvetica, sans-serif size= :H -4 M > 
<a href= H admin4a.asp , '>Return 

to Source</aX/fontx/td> 
</tr> 
<tr> 

<td bgcolor^'CK^S" height=*2(T width-" 140" align= w center"> 
<div align=' , center ,, > 

<font face^Verdana, Arial, Helvetica, sans-serif color= M #FFFFFF> 
<bxfont size="P> 
SOURCE NAME 
</fontx/bX/fontx/div> 
</td> 

<td bgcolor="#99CCFF" height="2(T width="360" aiign-"leff > 
<dtv align="lefrxfont face=* Verdana, Arial, Helvetica, sans-serif co1or= M # FFFFFF"xbxfont size=T 
color="#00000(r> 
<%if not l_action then 

strSQL = "select U_SOURCE_NAME FROM Source_descriptions " 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, "P_SOURCE\6, "SELECT SOURCE", l_source 
objRST.close 
else 

Response. Write l_source 
end if %> 
</fontx/bx/fontx/div> 

</td> 
</tr> 
<tr> 

<td width=" 140" bgcolor= M #003366" height="20 1 ' align asH center H > 

<div align=*center w xf 0 nt face-" Verdana, Arial, Helvetica, sans-serif color= rt #FFFFFF M xbxfont si2e=T>S0URCE 
INDICATOR </fontx/bx/fontx/div> 
</td> 

<td width="36(T bgcoIor^^CCFF" height="2<T aiign- w leff > 
<div align= w left" xfont face= n Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont size= n r 
color= M #000000 M > 

<%if not l_action then %> 

<input type— "TEXT M NAME= , P_SRC_rND < 

id=0 value='<%Response. Write l_src_ind %>' maxlength= M 3(T size= w 6 M > 
<% else 

Response. Write I_src_tnd 

end if %> 
<JTD> 



</fontx/bx/fontx/div> 
</td> 
</tr> 
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</tabie> 
</td> 
</tr> 
</tabIe> 
</form> 
</body> 
</htmi> 



Integrated Marketing Technology 



9/27/00 2:22 PM 



Page 164 of 200 



IMT Subscription Marketing Reporting System 



editsourcename.asp 

<%@ Language=VBScript %> 

<!- # include file==".Vsupport/globaJ_coristants.asp" -> 

<!-#indude file^.Vsupport/dbConnection.asp" -> 

<!- # include fl[e=^./suppo^t/adoUtils.asp ,, -> 

<!-#include file=\Vsupport/srcTab.asp M -> 

<[- include fiie^Wsupport/setupTab.asp" -> 

<% 

dim l_co!_names(2) 
dim I_coI_vaiues(2) 

I_ColumnCount = 2 
l~rec_id = RequestQuervString("Z") 
If RequestForm("UPDATE.x") o "" then 
inaction = "Update" 

elself Request. form("DELETE,x") o "" then 
l_action = "Delete" 

end if 

I_sp_edit = "sp_Edit_Source_Description" 
1_file = "editSourceName.asp" 
l_Titie = "Source Description" 
l_setupTabLink = "setupSourceName.asp" 
t_showPrevSeIection= false 

l_coI names(O) = "SOURCE " 
l_cofnames(l) = "DESCRIPTION" 

l_query = "select U_SOURCE_NAME, U_source_description " _ 
& " FROM Source_descriptions " _ 
& " WHERE recjd = " & cint(l_rec_id) 



1 Response.Wrtte l_rec_id 
If (IsNumeric( l_rec_id) ) then 

if l_action ~ "Update" or l_action - "Delete" then 

editAccept l_rec_id, l_action, l_CoiumnCount, l_setupTabLinfc,i_sp_edit 
else 

strSQL = Lquery 

ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF = False) then 
l_col_values(0) - ObjRST.Fields(0) 

LcoI_vaiues(l)= ObjRST.Fieids(I) 

end if 

objRST.close 
end if 

end if 



* call setupTab's editmain to paint screen for user input 
editHeading t_file, l_file, l_rec_jd 

'assign values to variables for setupTab's editMain 



' call setupTab's editmain to paint screen for user input 

editMain [_Title,l_setupTabLink,LshowPrevSelection,I_col_names,l_col_values,LColumnCount 
' call setupTab's editBottom to close body, html, form 
editBottom %> 
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ros editcampaign.asp 

<%@ Language="VBScript n %> 

<!-#include file=^support/giobal_constants.asp" -> 

<t- # include fiie="„/support/dbConnection.asp" ~> 

<!- #includc file=" Jsupport/adoUtils.asp" -> 

<!- ^include f11e=Vsuprx>rt/srcTab.asp" ~> 

<!- #include file^Vsupport/navigation.asp" -> 

<!- # include file="../support/objedit.asp" -> 

<% 

l_this_file = K ms_editcampaign.asp" 
Session("refer_page N ) = n admin5a.asp" 

if (RequestForm("setupTab") o "0" and Request.Form("setupTab") > " ") then Response.Redtrect(Request.Form( : 

savechanges = False 

page ~ requestquerystring("pg w ) 

if not (len(page) > 0) then 

page = requestform("pg") 

if requestform ("groupedit") > " " then savechanges = True 

end if 

toomanyrecords = requestquerystringfro") 
'Update 

if savechanges ~ True then 

'response.write ("Entering ...") 
*Get records 

recordcount = Requestform("p_RecCount") 

record id = "" 

recordidlist="" 

'response.write (" RecordCount -> " & cstr(recordcount) & "<br>") 
'response. writefThere are " & cstr(recordcount) & " records <br>") 



for i *= I to recordcount 

recordid = Request form( H rccJd H & cstr(i)) 
'response.write ("<br>Record id: " & recordid) 
if recordid > " * then 

'init obj 

set PGE - new objPostGroupEdit 
PGE.init 

PGE.MSE_Row=i 

PGE.AddRecord recordid 

'response. write(cstr(recordid) + "<br>") 

'Set Stored Procedure info 
PGE.CIassType = "Multi Edit" 
PGE.SP = *sp_edtt_campaign" 
PGE.TableName = "campaigns" 

if Requestform("GroupEdit") > " " then PGE.IsDelete « 0 

if request.forrn("deletebutton") > " " then PGE.IsDelete = 1 

PGE.AddParam H camp_name M 

PGE.AddParam "camp_date_fr" 

PGE.AddParam "camp_type" 

PGE.AddParam "camp_status_name" 

PGE.AddParam "e_set_name" 

PGE.AddParam "r_set_name" 

'PGEAddParam "newstand_sale" 

PGE.AddParam "budgeted_gross_pct" 

PGE.AddParam "budgeted_vol" 

PGE.AddParam "login" 

PGE.AddParam "recjd" 

PGE.AddParam "IsDelete" 

objCMD.ActiveConnection - strSQLOLEDB 

objCMD.CommandText - "sp_edit_campaign" 

objCMD.CommandType = adCmdStoredProc 

objCMD.parameters.refresh 

PGE.PostGroupEditsBySP 

'response.write ("Changes Saved") 
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end if 

next 'i 
end if 

'Multi Select 

dim MSE 1 Multi Select object 

dim strSQL ' SQL Query text 

dim NumOfRecords 1 Total records matching whereclause - used for Prev and Next buttons 
dim RecsPerPage 1 max number of records to display on each page 

'init obj 

set MSE = new objGroupEdit 
MSEinit 

MSE.ClassType - "MultiSelect" 
MSE.action = ljthis Jile 
MSE. Return JPage ~ "admin5a.asp" 
MSE.TableHeader = "Multi Edit" 
MSE.show = true 

recordidlist - SessionCRECORDIDLIST") 
MSE.MS_Page = page 
RecsPerPage = 5 

MSE.MS_RecsPerPage = RecsPerPage 
MSE.MS Table = "Campaigns* 1 

MS_Whe7eClause = " where grp_name = Sessio<GRP_NAME") & m and PRODUCTJEN" & ScssionCPRODUCTJD") & " 
and src_cat_name SessionfSRCCATNAME") & "'" & " and source_name = ,n &. SessionCSOURCE_NAME") & m and 
rec_id in f & Session^ RECORDIDLIST") & ")" 
MS_OrderBy - " Order by camp_name desc " 
'response, write MS_WhereCIause 

'open recordset for current page 
objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText - "PagedQuery" 
objCMD.CommandType = adCmdStoredProc 
objCMD.parameters.refresh 
objCMD.Parameters( M @Page").vaIue = page 
objCMD.Paramcters("@RecsPcrPage") - RecsPerPage 
objCMD-ParametersCQQueryTabie") = "Campaigns" 
objCMD.Parameters("@WhereClause") = MS_WhereCiause 
objCMD.ParametersC@OrderBy") = MS_OrderBy 
set objRST =» objCMD.executeO 

•response. writeC Record ID list > " & Session("RECORDIDLlST")) 
'response. write ("Page ->" + cstr(Request.querystring(**pg"))) 

'strSQL = "pagedquery " + cstr(page) + ",5/campaigns*," + chr(34) + MS_WhereClause + Chr(34) + V + chr(34) + MS_OrderBy + 
chr(34) 

'response. write (strSQL) 

'objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

NumOfRecords = 0 
if not objRSTeof then 

NumOfRecords = objRST("MoreRecords") 

MSE.MS_NumOfRecords = NumOfRecords 

else 

There are no more records 

'response/write "There are no more records to edit" 

response.redirect "admin5a.asp" 

end if 

while not objRST.eof 

MSE.NextRow 

'Campaign Name 
index = MSE.Addltem 
MSE.fieldType index, "TEXT" 
MSE.CoIumnHeader index, "CAMPAIGN NAME" 
MSE.default index, mycstr(objRST("camp_name")) 

'Campaign Start Date 
index - MSE.Addltem 
MSE.fieldType index, "TEXT" 
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MSE.ColumnHeader index, "CAMPAIGN START DATE" 
MSE.default index, mycstr(objRSTCcamp_date_fr")) 

'Campaign Type 
index = MSE.Addltem 
MSE.fieldType index, "SELECT" 
MSE.ColumnHeader index, "CAMPAIGN TYPE" 

MSE.strSQL index, "select CAMP_TYPE_NAME from PROD_CAMP_TYPE where PRODUCTJD-" & 
Session("PRODUCT JD") & " order by campjypejiame " 
MSE.default index, mycstr(objRST( H camp_type")) 

'Campaign Status 
index = MSE.AddItem 
MSE.fieldtype index, "SELECT" 
MSE.ColumnHeader index, "CAMPAIGN STATUS" 

MSE.strSQL index, "select CAMP_STATUS_NAME from PROD_CAMP_STATUS where PRODUCT_ID=" & 
SessionCPRODUCTJD") & " order by camp_status_name * 

MSE.default index, mycstr(objRST("camp_status_name")) 

'Expense Set 

index = MSE.Addltem 

MSE.fieldtype index, "SELECT" 

MSE.ColumnHeader index, "EXPENSE SET" 

MSE.strSQL index, "select e_set_name from EXPENSE_SETS where PRODUCT JEH" & Session("PRODUCTJD") & 
order by e_set_name " 

MSE.default index, mycstr(objRST("e_set_name")) 

•Revenue Set 

index = MSE.Addltem 

MSE.fieldType index, "SELECT" 

MSE.ColumnHeader index, "REVENUE SET 

MSE.strSQL index, "SELECT r_set_name from revenue_sets where productjd = " & SessionfPRODUCTJD") & " 
order by r_set_name" 

MSE.default index, mycstr(objRST("r_set_name")) 

*Newstand Sale 
'index = MSE.Addltem 
'MSE.fieldType index, "TEXT" 
'MSE.ColumnHeader index, "NEWSTAND SALE" 
'MSE.default index, mycstr(objRST("newstand_saIe")) 

'Budgeted Gross % 

index « MSE.Addltem 

MSE.fieldtype index, "TEXT" 

MSEColumnHeader index, "BUDGETED GROSS % M 

MSE.default index, mycstr(objRST("budgeted ^ossjxt")) 

'Budgeted Vol 

index = MSE.Addltem 

MSE.fieldtype index, "TEXT" 

MSEColumnHeader index, "BUDGETED VOL" 

MSE.default index, mycstr(objRST( M budgeted_vor)) 

'Record ID 

index *= MSEAddltem 

MSE.fieldType index, "RECORDID" 

MSE.ColumnHeader index, "" 

'MSE.strSQL index, "N,Y" 

MSE.default index, mycstr(objRST("rec_id")) 

objRST.movenext 
wend ' objRST 
objRST.close 

Table Headers 

%> <form method- "POST" action- , <%=l_this_file%>" name=*GroupJEdit_Form" ceJIpadding="3" cellspacing ="3"> 
<table> 

<% 
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'response. write (Sessionf RECORD IDLIST") & " Heiio World") 
'Set record count 

%> <input type-** HIDDEN" va]ue= w <%=RecsPerPage%> M name= H p_RecCounC> <% 

'Display Table 
MSE.DisplayEditTable 

%> 
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ros editkev.asp 

<%@ Language= VBScript %> 

<!- #inc!ude file="../support/globaI_constants.asp" -> 

<!— #include fi[e=".ysupport/dbConnection.asp" — > 

<!- #include fiIe='\./support/adoUtiIs.asp" -> 

<!- ^include fiie='*,./support/srcTab.asp w -> 

<!- ^include fiIe= M .ysupport/navigation.asp M -> 

<!- #inciude file="../support/objedit.asp" -> 

<% 

l_this_file ^"rr^editkey.asp* 
Session("refer_page") - "ms_editkey.asp" 

if (RequestFormCsetupTab^o "0" and Request.Fo^m( M setupTab ,, ) > " ") then Response.Redirect(Request.Form("setupTab'')) 

savechanges = False 

page = requestquerystringCpg") 

if not len(page) > 0 then 

page - request. form("pg") 

savechanges = True 

end if 
'Update 

if savechanges - True then 
'Get records 

recordcount = Request.form("p_RecCounC) 

'response. write (" RecordCount -> n & cstr(recordcount) & "<br>") 

recordid - " M 

recordidlist ~ 

'response. write("There are " & cstr(recordcount) & " records <br>*) 
for i = 1 to recordcount 

recordid = Request form("rec_id" & cstr(i)) 

if recordid > " " then 

'init obj 

set PGE = new objPostGroupEdit 
PGE.init 

PGE.MSE_Row=i 

PGE.AddRecord recordid 

'response. write(cstr(record id) + "<br>") 

'Set Stored Procedure info 
PGE.CiassType « "Multi Edit" 
PGE.SP « "sp_edit_key" 
PGE.TableName - "keys" 
PGE.IsDelete = 0 
PGE.AddParam "pjcey^descr" 
PGE.AddParam "mail_qty_override n 
PGE.AddParam "newstand_sale" 
PGE.AddParam w newstand_saIe_marker H 
PGE.AddParam "iist_cat_name" 
PGE.AddParam "listjiame" 
PGE.AddParam "list j«gment_name" 
PGE.AddParam "Iistj;ost_actaal_cpm" 
PGE.AddParam "Iist_cost_basis" 
PGE.AddParam "Iist_cost_factor* 
PGE.AddParam "merge _purge_qty w 
PGE.AddParam "ejetjiame" 
PGE.AddParam "i^se^name" 
PGE.AddParam M panel_pkg" 
PGE.AddParam M subtotal_flag" 
PGE.AddParam "optiona^effortjd* 1 
PGE.AddParam "recjd" 
PGE.AddParam "IsDelete" 
objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText - "sp_edit_key" 
objCMD.CommandType = adCmdStoredProc 



Integrated Marketing Technology 



9/27/00 2:22 PM 



Page 170 of 200 



IMT Subscription Marketing Reporting System 



objCMD.parameters.refresh 
PGE.PostGroupEditsBySP 



end 



end if 
next 'i 
if 



'Multi Select 
dim MSE 
dim strSQL 
dim NumOfRecords 
dim RecsPerPage 



' Multi Select object 
1 SQL Query text 

Total records matching whereclause - used for Prev and Next buttons 
' max number of records to display on each page 



'init obj 

set MSE = new objGroupEdit 
MSE. init 

MSE.action = ijhisjile 
MSRClassType = "MultiSelecf 
MSE.TableHeader = "Multi Edit" 
MSE.show = true 

recordidlist « SessionCRECORDIDUST") 
MSE.MS_Page « page 
RecsPerPage = 5 

MSE.MS_RecsPerPage • RecsPerPage 
MSEMSJable-'keys" 
MSE.Return_Page = "adminkeysrightasp" 

•MS_WhereClau5e - " where grp name = Sessfon("GRP_NAME") & " and PRODUCTJEN" & Sessionf PRODUCT JD") & " 
and src_cat_name = ' n & Session( ; $RC_CAT_NAME") & m " & " and source_name = & Session( M SOURCE_NAME") & mH & " 
and Camp_name - m & Session("CAMP_NAME M ) & m and recjd in (" & SessionCRECORDIDUST") & T 
MS_WhereClause = " where recjd in (" & ScssionfRECORDIDUSr ) & T 
MS_OrderBy = " Order by full_promoJcey " 
'response.write MS_WhereClause 

'open recordset for current page 
objCMDActiveConnectton = strSQLOLEDB 
objCMD.CommandText ~ "PagedQuery" 
objCMD.CommandType = adCmdStoredProc 
objCMD.parameters.refresh 
objCMD.ParametersC@Page").va]ue = page 
objCMD.ParametersC@RecsPerPage") - RecsPerPage 
objCMD.ParametersC@QueryTable M ) = "keys" 
objCMD-ParametersCQWhereClause") = MSJVhereClause 
0bjCMD.Pa^ametersC@O^de^By* , ) « MS_OrderBy 
'response.write ("Page -> M + cst^RequestquerystringCpg"))) 

'strSQL = "pagedquery " + cstr(page) + \5,'keys\" + chr(34) + MS_WhereCiause + Chr(34) + Y + chr(34) + MS_OrderBy + chr(34) 

'response.write (strSQL) 

set objRST - objCMD.executeO 

'objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

NumOfRecords = 0 
if not objRST.eof then 

NumOfRecords ~ objRSTCMoreRecords") 

MSE.MS_NumOfRecords = NumOfRecords 

'response.write (NumOfRecords) 



else 



There are no more records 

'response.write "There are no more records to edit* 

response.redirect "adminkeysright-asp" 



end if 



while not objRST.eof 

MSE.NextRow 



'Key 



index = MSE.Addltem 

MSE.fieldType index, "NOTAPARAMETER" 

MSE.ColumnHeader index, "KEY" 

MSE.default index, mycstr(objRST( tt fuH_p^omo_key ,, )) 
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'Key Description 
index = MSE. Addltem 
MSE.fieldType index, "TEXT" 
MSE.CoiumnHeader index, "KEY DESCRIPTION" 
MSE.default index, mycstr(objRST("p Jcey_descr")) 

'Mail Qty 

index - MSE.AddItem 

MSE.fieldType index, "NOTAPARAMETER" 
MSE.CoiumnHeader index, "MAIL QTY" 
MSE.defauIt index, mycstr(objRST("key - mail_qty M )) 

•Mail Qty OverRide 
index = MSE.AddItem 
MSE.fieldtype index, "TEXT" 

MSE.ColumnHeader index, "MAIL QTY OVERRIDE/DRAW 11 
MSE.defauIt index, mycstitobjRST("mail_qty_override")) 

Tslewstand Sale 
index = MSE.AddItem 
MSE.fieldtype index, "TEXT" 
MSE.CoIumnHeader index, "NEWSTAND SALE" 
MSEdefault index, mycstr(objRST("Newstand_Sale")) 

*Newstand Sale Marker 
index - MSE.AddItem 
MSE.fieldtype index, "SELECTLOV" 

MSE.ColumnHeader index , "RESPONSE BASED ON SALE (Y), OR DRAW (N)" 
MSE.strSQL index, "N,Y" 

MSE.default index, mycstr(objRST^Newstand_SaIe_Marker ,, )) 

'List Category 

index - MSE. Addltem 

MSE.fieldtype index, "SELECT" 

MSE.CoiumnHeader index, "LIST CATEGORY" 

MSE.strSQL index, "SELECT Iist_cat_name from list_cats where productjd = " & Session("PRODUCTJD") & " order 
by list_cat_name" 

MSE.defauIt index, mycstr(objRSTClist_cat_namc")) 

'List Name 

index = MSE.AddItem 
MSE.fieldtype index, "SELECT" 
MSE.CoIumnHeader index, "LIST NAME" 

MSE.strSQL index, "SELECT list_name from listjiames where productjd = " & SessionfPRODUCTJD") & " order by 

list_name" 

MSE.default index, mycstr(objRST("list_name")) 

'List Segment Name 
index = MSE.AddItem 
MSE.fieidtype index, "SELECT" 
MSE.CoIumnHeader index, "LIST SEGMENT NAME" 

MSE.strSQL index, "SELECT listj>egment_name from list_segments where productjd = " & Session("PRODUCT_ID") 
& " order by Hst_segmentjiame" 

MSE.default index, mycstrCobjRSTC'lisLsegment^name")) 

Ust cost actual CPM 
index - MSEAddltem 
MSE.fieldType index, "TEXT" 

MSE.ColumnHeader index, "LIST COST ACTUAL CPM" 
MSE.default index, mycstr(objRST("iist_cost_actual_cpm")) 

'List Cost Basis 
index = MSE. Addltem 
MSEfieldType index, "SELECTLOV" 
MSE.ColumnHeader index, "LIST COST BASIS" 
MSE.strSQL index, "Mail QTY,Merge Purge QTY,Undefined" 
MSE.defauit index, mycstr(objRST("list_cost_basis")) 
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'List Cost Factor 
index = MSE.Addltem 
MSE.FieldType index, "TEXT* 1 
MSE.ColumnHeader index, "LIST COST FACTOR" 
MSE.default index, mycst^(objRST( ,, list_cost_facto^' , )) 

'Merge Purge QTY 
index = MSE.Addltem 
MSE.Fieidtype index, "TEXT" 
MSE.CoIumnHeader index, "MERGE PURGE ATY" 
MSE.default index, mycsti(objRST("merge jurge_qty*)) 

'Expense Set 

index = MSE.additem 

MSE.fietdtype index, "SELECT" 

MSE.ColumnHeader index, "EXPENSE SET" 

MSE.strSQL index, "select e_set_name from expense_sets where productjd = " & SessionfProductjd*) & " order by 
e_set_name" 

MSE.default index, mycstr(objRST("e_set_name M )) 

'Revenue Set 

index - MSE.additem 

MSE.fieldtype index, "SELECT" 

MSE.ColumnHeader index, "REVEUE SET" 

MSE.strSQL index, "select rsetjiamc from rcvenuejets where productjd = " & Session("PRODUCTJD") & " order by 
r_set_name" 

MSEdefauit index, mycstr(objRST("r__set_name")) 
'Package 

index - MSE.Additem 
MSE.fieldtype index, "SELECT" 
MSE.CoIumnheader index, "PACKAGE" 

MSE.strSQL index, "select package_name from prod_panei_package where productjd - " & Session("PRODUCT_ID") 
& " order by package_name* 

MSE.default index, mycstr(objRSTCpanel_pkg*)) 

'Subtotal Flag 

index = MSE.Addltem 

MSE.fieldType index, "SELECTLOV" 

MSE.ColumnHeader index, "SUBTOTAL FLAG" 

MSE.strSQL index, "True,False" 

MSEdefauit index, mycst^objRSTfsubtotalJlag")) 

'Optional Effort ID 
index = MSE.additem 
MSE.fieldtype index, "TEXT" 

MSE.CoiumnHeader index, "OPTIONAL EFFORT FLAG" 
MSE.default index, mycstr(objRST("optional_effort_id")) 

"Record ID 

index - MSE.Addltem 

MSEiieldType index, "RECORDID" 

MSE.ColumnHeader index, " " 

MSE.default index, mycstr(objRST("rec_id")) 

objRST.movenext 
wend ' objRST 
objRST.close 
Table Headers 

%> <form method="POST" action="<%=l_this_fiIe%>" name="Group_Edit_Form" ceUpaddtng="3" cellspacing ="3"> 
<table> 

<% 

'response.write (Session("RECORDlDLIST") & " Hello World") 
'Set record count 

%> <input type="HIDDEN" va!ue=*<%=RecsPerPage%>" name="p_RecCount"> <% 

'Display Table 

MSE.DisplayEditTable 
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%> 
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ms editpanel.asp 

<%@ Language- VBScript %> 

<!~#include fiIe= fl ../support/global_constants.asp" -> 

<!-#include file=^./suppo^t/dbConnection.asp' , -> 

<!- #include flle=^Vsupport/adoUtils.asp ,, -> 

<!- #include file^Vsuprjort/srcTab.asp" -> 

<!- ^include file= 1 \./supportfnavigation.asp" -> 

<!- #inciude file= tt Jsupport/objediLasp" -> 

<% 

l_this_fiie - w ms_editpaneLasp" 
SessionCreferjwge") = "ms_editpanel.asp" 

if (RequestForm( ,, setupTab ,, )o n Q" and Request.Form(''setupTab w ) > " ") then Response.Redtrect(RequestForm( setupTab )) 

savechanges = False 

page = requestquerystring("pg") 

if not len(page) > 0 then 

page = requestform("pg") 

savechanges = True 

end if 
'Update 

if savechanges - True then 



'Get records 

recordcount = Requestform( w p_RecCount") 
recordid - 
recordidlist - "* 

'response-write (" RecordCount -> " & cstr(recordcount) & M <br>") 

'response. write("There are * & cstr{recordcount) & " records <br>") 
for i = I to recordcount 

recordid = Request form( M recJd M & cstr(i)) 

ifrecordid> w "then 

'in it obj 

set PGE = new objPostGroupEdit 
PGE.init 

PGE.MSE_Row = i 
PGE^AddRecord recordid 
r response.write(cstr(recordid) + "<br>") 

'Set Stored Procedure info 
PGE.ClassType = "Multi Edit" 
PGE.SP = "sp_ed^_panels ,, 
PGETableName = "panels" 
PGEIsDelete = 0 
PGEAddParam "panel_name M 
PGE.AddParam t, panel_date_starr 
PGE.AddParam "paneljype" 
PGE.AddParam M panel_subtype" 
PGE^ddParam "testjype" 
PGE.AddPararh "panel_pkg" 
PGE.AddParam "e_set_name" 
PGE.AddParam *r_setname" 
'PGE.AddParam "newstand_sale_marker" 
PGE.AddParam "login" 
PGE.AddParam "recjd" 
PGE.AddParam "IsDelete" 
objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_edit j>aneP 
objCMD.CommandType ~ adCmdStoredProc 
objCMD.parameters.refresh 
PGE.PostGroupEditsBySP 

end if 
next 'i 
end if 
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'Multi Select 

dim MSE 1 Multi Select object 

dimstrSQL 1 SQL Query text 

dim NumOfRecords ' Total records matching whereclause - used for Prev and Next buttons 
dim RecsPerPage 1 max number of records to display on each page 



'in it obj 

set MSE = new objGroupEdit 
MSE.init 

MSE.ClassType = "MultiSclcct" 
MSE.action = l_this_file 
MSE.Return_Page = l, admin6a.asp i1 
MSE.TabIeHeader^= "Multi Edit* 
MSE. show = true 

recordidlist = Session("R£CORDIDLIST") 
MSE.MS_Page = page 



RecsPerPage = 5 

MSE.MS_RecsPerPage = RecsPerPage 
MSE.MSJTabie « "panels" 

MS_WhereClause = " where recjd in (" & ScssionfRECORDIDLIST") & T 
MS_OrderBy = " Order by SOURCE_NAME ** 
'response, write MS_WhereClause 

'open recordset for current page 
objCMD. ActiveConnection = strSQLOLEDB 
objCMD.CommandText - "PagedQuery" 
objCMD.CommandType = adCmdStoredProc 
objCMD.parameters.refresh 
objCMD.Parameters("@Page"). value = page 
objCMD.ParametersC@RecsPerPage N ) =* RecsPerPage 
objCMD.ParametersC@QueryTable") = "panels" 
objCMaParametersC@WhereClause") = MS_WhereCiause 
objCMD.Parametersr@OrderBy N ) « MSjOrderBy 
set objRST = objCMD.executeO 

'response.write( M Record ID list > * & Sessionf RECORDIDLIST)) 
'response. write ("Page + cstrCRequest.querystringCpg"))) 

'strSQL - "pagedquery " + cstr(page) + ",5,'paneis', M + chr(34) + MS_WhereClause + Chr(34) + \" + chr(34) + MS_OrderBy + 
chr(34) 

'response.write (strSQL) 

'objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

NumOfRecords = 0 
if not objRST.eof then 

NumOfRecords « objRST("MoreRecords") 

MSE.MS_NumOfRecords - NumOfRecords 

'response.write (NumOfRecords) 

else 

There are no more records 

'response.write "There are no more records to edit" 

response.redirect "admin6&a$p" 

end if 



while not objRST.eof 

MSE.NextRow 



'Panel Name 

index = MSE. Addltem 

MSE.fteldType index, "TEXT" 

MSE.CoIumnHeader index, "PANEL NAME" 

MSE.defauit index, mycstr(objRST(''panel jiame")) 

'Panel Date Start 
index MSE.AddItem 
MSE.fieldType index, "TEXT" 
MSE.CoIumnHeader index, "PANEL DATE START" 
MSE.default inciex, mycstr(objRST("paneI_date_start")) 
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'Panel Type 

index = MSE.Addhem 

MSE.fieldType index, "SELECT* 

MSE.CoiumnHeader index, "PANEL TYPE" 

MSE.strSQL index, "SELECT panel Jypejiame FROM corp_paneI_type ORDER BY panel Jypejiame" 
MSE.default index, mycstr(objRST("panel Jype")) 

'Panel SubType 
index = MSE.AddItem 
MSE.fieldtype index, "SELECT" 
MSE.CoiumnHeader index, "SUBTYPE" 

MSE.strSQL index, "SELECT panel_subjype_name from corp_panel_sub_type order by panel_sub Jype_name" 
MSE.default index, mycstr(objRST("panei_subtype")) 

Test type 

index = MSE.Addltem 
MSE.fieldtype index, "SELECT" 
MSE.CoiumnHeader index, "TEST TYPE" 

MSE.strSQL index, "SELECT panel Jest Jype_name from corp jjanel jest jype order by panei_testjype_name" 
MSE.default index, mycstr(objRST("test_type")) 

'Package Type 
index = MSE.Addltem 
MSE.fteldtype index, "SELECT" 
MSE.CoiumnHeader index, "PACKAGE" 

MSE.strSQL index, "SELECT package_name from prod_panel_package where product_id = " & 
Session("PRODUCTJD") & " order by package_name" 

MSE.defauIt index, mycstr(objRST("panel_pkg")) 

'Expense Set 

index = MSE.Addltem 

MSE.fieldtype index, "SELECT" 

MSE.CoiumnHeader index, "EXPENSE SET" 

MSE.strSQL index, "SELECT e_set_name from expense_sets where productjd = " & Session("PRODUCT_ID") & " 
order by e_set_name" 

MSE.default index, mycstr(objRST("e_set_name")) 

'Revenue Set 

index = MSE.Addltem 

MSE.fieldType index. "SELECT" 

MSE.CoiumnHeader index, "REVENUE SET" 

MSE.strSQL index, "SELECT r jctjiame from revenue_sets where product Jd - " & SessionfPRODUCT JD") & " 
order by r_set__name" 

MSE.default index, mycstr(objRST("r_set_name")) 

'Newstand Marker 
'index = MSE.Addltem 
'MSE.fieldType index, "SELECTLOV" 
'MSE.CoiumnHeader index, "NEWSTAND MARKER" 
'MSE.strSQL index, *N,Y" 

'MSE.default index, mycstr(objRST("newstand_sale_marker")) 
'Record ID 

index = MSE.Addltem 

MSE.fieldType index, "RECORDID" 

MSE.CoiumnHeader index, " " 

'MSE.strSQL index, "N,Y H 

MSE.default index, mycstr(objRST( M rec_id")) 

objRST.movenext 
wend * objRST 
objRST.close 
Table Headers 

%> <form method="POST" action="<%=I_this_fite%>" name="Group_Edit_Form" cellpadding="3" cellspacing ="3"> 
<table> 

<% 

'response.write (Session("RECORDIDLIST") & " Hello World") 
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'Set record count 

%> <input type-' HIDDEN" value- ^/^RecsPerPage 0 /^" name= M p_RecCount"> <% 

'Display Table 

MSE.DispIayEditTable 



%> 
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noadminrights.asp 

<%@ Language- VBScript %> 

<!- ^include fiie="../support/global_constants.asp" -> 
<!-#inciude f^ie=\ysuppo^t/dbConnection.asp ,, -> 
<!- #include flle=^./support/adoutils.asp ,, -> 
<!- #include file^ysupport/srcTab.asp" -> 
<% 

Ijhisjile = "NoAdminRights.asp" 
%> 

<html> 
<head> 

<title>You Do Not Have Admin Rights for this product! </title> 
</head> 

<body bgcolor-"#99CCFF M viink= M 00000(T link-"003366"><font size=*7(T> 
<br> 

You Do Not Have Admin Rights for <%=Session("Title_nameT/o>l! 

</font> 

</body> 

</html> 
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nosetuprights.asp 

<%@ Language=VBScript %> 

<!-#include flle=^7suppo^t/giobal_constants.asp ,, -> 
<!~#include file^ysupport/dbConnection.asp" -> 
<!-#include file= M ,ysupport/adoutils.asp*' -> 
<!-#include ftIe= M „/support/srcTab.asp" -> 
<% 

Ijhis Jile « "NoSetupRights.asp" 
%> 

<html> 
<head> 

<tit!e>You Do Not Have Setup Table Access Rights for this product!</tit!e> 
</head> 

<body bgcolor= w #99CCFF vlink^OOOOOO" iink="003366 H xfont size="2(T> 
<br> 

You Do Not Have Setup Table Access Rights for <%=Session( H Titie_name ,, )%>!! 

</font> 

</body> 

</html> 
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searchbounccasp 

<%@ Language=VBScript %> 

<!- include fiie= n .7support/giobal_constants.asp" -> 
<!- #include fiIe= n .7support/dbConnection.asp M -> 
<!- # include file^Vsupport/adoUtils asp" -> 
<!-#include file= M ../support/srcTab.asp rt -> 

<% 

'parameters should be: 

' p_optton,p_grp_name, p_PRODUCT_ID, p_SRC_CAT_NAME, 
1 p_SOURCE_NAME,p_SRC_INDICATOR, p_camp_name 
' which url we redirect to . . . 
' parameters: Z => record id 
* Y -> option 

' Response. write("Triis is so gay") 

p_action = cint(RequestQueryStringCX H )) 

p_option = cint{Request_QueryStrmgCY N )) 

, Response.write( ,, <br> " & p_option) 

p_recjd = cint(Request.QueryString ("Z")) 

' Response.write( ,, <br> " & p_recjd) 
4 Response. Write p_grp_name 

ifp_option=0 then 

strSQL- "select GRPJJAME, TITLE J4AME, PRODUCT©, SRC_CATNAME 
&" from SRC_CATEGORY " _ 
& " where recjd =" & p_recjd 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
session( H GRP_NAME") - objRST.Fields("GRP_NAME"). Value 
session('T^TLE_NAME 1, ) = objRST-Fields( H TraE_NAME w )- Value 
scssionrPRODUCTJD") = objRST.Fie!ds("PRODUCTJD^. Value 
session( M SRC_CAT_NAME") - objRST.FieldsCSRCCATJIAME"). Value 
objRST.close 



elseif p_option=l then 

strSQL = "select GRP_NAME, Src .indicator, TITLE JJAME, PRODUCTJD, SRC_CAT_NAME, SOURCE_NAME "„ 
& ** from SOURCE " _ 
& " where recjd - n & p_recjd 
'Response. Write strSql 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
sessionfGRP JiAME") = objRST.FieldsCGRP.NAME"). Value 
session^PRODUCTJD M )=objRST.Fields( ,, PRODUCTJD* , )- Value 
session("TTTLE_NAME'*) =objRST.Fields( M TTrLE_NAME 1 '). Value 
sessionCSRC_CAT_NAME w ) = objRST.Fields("SRCj:ATJ^AME"). Value 
scssion("SOURCE_NAME") = objRST.FieldsfSOURCE JMME").Value 
SessionCSRCJNDfCATOR") - objRST.Fields( ,, SRC_l^^DICATOR , •). Value 
objRST.close 
if p_action = I then 

Response. Redirect("editSource.asp?Z=" & p_recjd) 

else 

Response.Redirect( M admin5a.asp rt ) 

end if 

C sttSQL°- -«lcct ^indicator, GRP_NAME, TITLE.NAME, PRODUCTJD, SRCCAT.NAME, SOURCE JIAME, 
CAMP_NAME w _ 

&" from CAMPAIGNS M _ 
& " where recjd = w & pjrccjd 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
session( n GRPJiAME") = objRST.FieidsCGRP_NAME"). Value 
session("PRODUCTJD") ^bjRST.FieldsCTRODUCTJD"). Value 
sessionC'TITLE.NAME^^bjRST.FieldsCTiTLE.HAME*'). Value 
session( M SRC_CAT_NAME*) - objRST.FieldsCSRC_CAT_NAME w ). Value 
session("SOURCEJNAME") - objRST.Fidds( H SOURCE_NAME"). Value 
SessionfCAMP_NAME M ) ^bjRST.FieldsO*C AMP J^IAME^). Value 
Session(«SRCJNDICATOR") = objRST.Fie!ds("SRC_INDiCATOR").Value 
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objRSTxlose 

if p_action = 1 then 

Response. Redirected itCamp.asp^Z 3 " & p_rec_id) 

else 

Response. Redirect("admin6a. asp") 

end if 
elseif p_option=3 then 

strSQL= "select Src_indicator,GRP_NAME, TITLE_NAME, PRODUCT JD, SRC_CAT_NAME, SOURCE_NAME, 
CAMP_NAME, PANEL_NAME 
&" from PANELS * _ 
& " where rec_id =" & p_rec_id 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
sessionCGRPJ^AME") « objRST.Fields(XjRP_NAME w ). Value 
sessionCPRODUCTJD^^bjRST.FieldsCPRODUCT^^.Value 
sessionC^irLE^NAME") =obj RSTJieIds("TITLE_NAME*). Value 
sessionCSRC_CAT_NAME w ) - objRST.FieIds( H SRC_CAT_NAME M ).Value 
sessionCSOURCE_NAME*') = objRST.Ftelds("SOURCE_NAME M ). Value 
Session("CAMP_NAME") = objRST.FieidsCCAMP_NAME").Value 
SessionCPANE^NAME") = objRST JieldsCPANEL.NAME"). Value 
SessionCSRCJNDICATOR") - objRST Jields("SRC JNDICATOR"). Value 
objRST.dose 
if p_action = 1 then 

Response.RedirectCeditPaneLasp?Z=" & p_recjd) 

else 

Response.RedirectCadminkeys.htm") 

end if 
else 

Response. Write "<br> else this" 

end if 

%> 



Integrated Marketing Technology 



9/27/00 2:22 PM 



Page 182 of 200 



IMT Subscription Marketing Reporting System 



setupcampstatasp 

<%@ Language=VBScript %> 
<!- # include file^.Vsupport/global^constants.asp" ~> 
<!- #include file=V/support/dbConnection.asp" -> 
<!- #include ftfe=*\./support/adoUtils.asp H -> 
<!- #include file^.ysupport/srcTab.asp" -> 
<!- #include file="../support/setupTab.asp" ~> 
<!- #include file=*\./support/JavaScripts.asp* -> 
<% 

ljhisjile = "setupCampStat.asp M 
l_showPid = true 

if not ( session("Product_id") > " M ) then 
Response.Redirect("admin2a.asp?FR= M & ljhisjile ) 
end if 



I_name = "Campaign Status" 

l_descr = "The status of a Campaign <BR> (i.e. active, complete)," & vbcr 
%> 

<htmt> 
<head> 

<titIex%Response. Write l_name%x/titie> 
</head> 

<body bgcolor= H 99CCFF" background=".ygraphics/adminhorzsIice2.gir text= w #00000<T 

link="#000000" vlinfc= w #00000<r marginwidth="<T marginheight^O" leftmargin^O" topmargin= H (T> 
<form method^post" action name> 

<tab!e width^^O" border="0" cellspacingr^lO" ceilpaddin^O" valign="top"> 

<tr valign^top^ 
<td valign= H top"> 
<% ' call setupTab's Left Caption 

LeftCaptions l_Name, ljiescr, l_showPid,l jhis_file 
%> 
</td> 

<td rowspan^" width= N 46r vaiign- rt top H ALIGN-"LEFr> 
<% * call setupTab's show 
dim ljitles(2) 

l_titles(0) = "Campaign Status" 
I Jitles( 1) = "Description" 
l_editProc = "editCampStatasp" 
!_addProc - "addCampStatasp" 
l_columnCOunt = 2 

myQ = "select camp_status_name, CAMP_STATUS_DESCR, RECJD " _ 

& * from prod_CAMP_status where " _ 

& " Product jd =" & Session("PRODUCTJD H ) _ 

& " Order by camp_status_name " 

showSetupTable ljitles, myQ, t_editProc, ljiddProc, ljolumnCOunt %> 

</td> 

</tr> 

</tab!e> 
</form> 
</body> 
</html> 
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setupcamptvpcasp 

<%@ Language=VBScript %> 
<!- #include file="„/support/g!obai_constants.asp" -> 
<!- #include fiIe="../support/dbConnection.asp" -> 
<!- #inctude file="../support/adoUtiJs.asp" -> 
<!- #include file="../support/srcTab.asp" -> 
<!- #inc!ude ftle ==M .7support/setupTab.asp w -> 
<!- ^include file-* 1 . ./support/JavaScripts.asp" -> 
<% 

!_this_fHe = "setupCampType.asp" 
l_showPid - true 

if not ( session("Product_id") > " " ) then 
Response.Redirect{"admin2a.asp?FR=" & ljhis_ftle ) 
end if 

l_name = "Campaign Type" 
i_descr = "A broad classification of a Campaign which is " _ 
& " user defined and can differ between Sources, (i.e. Winter DM, hotline). " & vbcr 

%> 

<htm!> 
<head> 

<titlex%Response. Write l_name%x/title> 
</head> 

<body bgcoior-"99CCFF" background= N ../graphics/adminhorzsl ice2.gif textr="#000000* 

linlc^OOOOOO" v!inlo= M #00000(T marginwidth="0 K marginheight=="0" ieftmargin="0" topmargin= H 0"> 
<form method="post" action name> 

<table width="660" border="CT cellspacings" 10" cellpadding="0" valign="top"> 

<tr vaIign="top"> 
<td vaIign-"top"> 
<% ' call setupTab's Left Caption 

LeftCaptions l_name, l_descr, l_showPidJ_this_file 
%> 
</td> 

<td rowspan=V width-"468" valign="top H ALIGN-" LEFT"> 
<% ' call setupTab's show 
dim i_titles(2) 

ljitles(0) - "Campaign Type" 
I_titles(l) = "Description" 
!_editProc = "editCampType.asp" 
i_addProc = "addCampType.asp" 
l_columnCOunt - 2 

myQ = "select camp_type_name, CAMP_TYPE_DESCR, REC_fD "_ 

& " from PROD CAMPjype where " 

& " Productjd =" & Session("PRODUCT JD") _ 

& " Order by camp_type_name " 

showSetupTable Ijtitles, myQ, l_editProc,l_addProc, l_columnCOunt %> 

</td> 
</tr> 
</tabie> 

</form> ' 

</body> 

</html> 
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sctupeset.asp 

<%@ Language^ VBScript %> 
<!-- #indude file= w .7support/global_constants.asp w -> 
<t- § include file- 1 * Jsupport/dbConnection.asp" ~> 
<!- # include file="../support/adoUtils.asp* -> 
<!- # include file^Jsupport/srcTab.asp" -> 
<!- # include fUe=\ysupport/setupTab.asp" -> 
<!- # include ^le=\./suppo^t/JavaScripts.asp ,, -> 
<% 

l_this_fiie = "setupESetasp" 
l_showPid = true 

if not ( sessionCProductjd") > " " ) then 
Response.RedirectCadmirait^FR^ & ljhisjile ) 
end if 

l_name = "Expense Set" 

t_descr = "A set of expenses which can be applied to a Campaign, Panel or Key." & vbcr 
%> 

<htmi> 
<head> 

<tit!ex%Response. Write l_name%x/title> 
</head> 



<body bgcolor= H 99CCFF background="Jgraphics/adminhorzsl ice2.gif text="#000000" 

Unk="#00OOOG" vlinJc^OOOOOO" marginwidth="0" marginheight^tr leftmargin^O" topmargin*"0"> 
<form method^' 1 post" action name=forml id=forml> 

<tablc width^MO" border^O" cellspacings" 10" ceUpaddtngr'tr valign="top*> 

<tr vaIign="top"> 
<td valign= t "top"> 
<% ' call setupTab's Left Caption 



LeftCaptions l_name, l_descr, l_showPid,i_this_file 
%> 
</td> 

<td rowspan= M 6" width= H 468 w vaiign="top" ALIGN- M LEFT> 
<% ' call setupTab's show 
dimUitles(l) 
l_titles(0) = "Expense Set" 

l_editProc - "editESetasp" 
^addProc^ "addESetasp" 
i_columnCOunt = 1 

myQ = "select e_set_name , RECJD 
& "from expense_sets " _ 

& " where productjd = " & SessionO'PRODUCTJD") _ 
& " Order by e_set_name " 

showSetupTable I Jities, myQ, l_editProc,l_addProc, l_coiumnCOunt %> 

</td> 

</tr> 

</table> 
</form> 
</body> 
</html> 
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setuplistcatasp 

<%@ Language= VBScript %> 
<!- # include fiie=\Vsupport/global_constants.asp" -> 
<!- # include fiIe 5=£ *../support/dbConnection.asp M -> 
<!- #include fiie=\VsupportfadoUtiIs.asp" -> 
<!- # include file="../support/srcTab.asp" -> 
<!~#include file i ="../support/setupTab.asp'' -> 
<!- #include file-"../support/JavaScripts.asp" -> 
<% 

l_this_file = "setupListCatasp" 
l_showPid = true 

if not ( session("Product_id") > " " ) then 
Response.Redirect(*admin2a.asp?FR=" & l_thts_file ) 
end if 



I_name - "List Category" 

i_descr = "A broad category of related lists." & vbcr 
%> 

<html> 
<head> 

<titlex%Response. Write l_name%x/title> 
</head> 

<body bgco!or="99CCFF background= K .ygraphics/adminhorzslice2.gir text="#00000(T 

linfc="#0000(Xr vlink="#000000" marginwidth="0" marginheight^O" leftmargin="0" topmargin^"0"> 
<form method^post* action name> 

<table width="66(T border="0" cellspacings" 10" cellpadding="0" valign^"top"> 

<tr valign-"top"> 
<td vangn="top"> 
<% * call setupTab's Left Caption 

LeftCaptions I_name, l_descr, l_showPid, l_this_file 
%> 
</td> 

<td rowspan="6 K width="468" valign-"top" ALIGN="LEFT H > 
<% * call setupTab's show 
dim l_titles(l) 
l_tities(0) = "List Category" 
ljities(l) = "Description" 
l_editProc = "editListCatasp" 
l_addProc = "addListCat.asp" 
l_coiumnCOunt = 2 

myQ = "select list_cat_name,list_cat_descr, RECJD 
& " from list_Cats " 

& " where product_id"= " & SessionCPRODUCTJD") _ 
& " Order by list_cat_name " 

showSetupTable l_titles, myQ, l_editProc,I_addProc, l_columnCOunt 

%> 
</td> 

</tr> 

</table> 
</form> 
</body> 
</html> 
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setuplistname.asp 

<%@ Language=VBScript %> 
<!- ^include file= : ^Vsupport/gIobal_constants.asp ,1 -> 
<!- #include file^./support/dbConnection.asp'' -> 
<!- ^include fiIe= H .7support/adoUtiIs.asp" -> 
<!- ^include file=".ysupport/srcTab.asp" -> 
<!- # include flle='\./suppo^t/setupTab.asp ,, -> 
<!- #include file^/support/JavaScripts-asp* --> 
<% 

l_this_fiie - "setupListName.asp" 
l_showPid = true 

if not ( session("ProductJd") > * " ) then 
Response.Redirect("admin2a.asp?FR=* & Ijhisjile ) 
end if 



l_name = "List Name" 
l_descr - The name of a list" & vbcr 

%> 

<htmt> 
<head> 

<titlex%Response.Write l_name%x/title> 
</head> 

<body bgcolor="99CCFF background= H .7graphics/adminhorzslice2.gir text^^OOOOOO" 

iink= M #00000<r vlink="#000000" marginwidth="0" marginheight^O" leftmargin="0" topmargin="0"> 
<form method^post" action name> 

<tabie width="66(T border="Cr cellspacing^D" ceUpadding="(T valign="top"> 

<tr va!ign="top"> 
<td valign=*top"> 
<% ' caii setupTab's Left Caption 

LeftCaptions I name, l_descr, l_showPid, Ijhisjile 
%> 
</td> 

<td rowspan="6" width="468 H valign="top" ALIGN="LEFT"> 
<% * call setupTab's show 
dim ijitles(l) 
l_titles(0) = "List Name" 
Ijitles(l) = "Description" 
l_editProc - "editListName.asp" 
l_addProc = "addLisiName.asp" 
ljoIumnCOunt - 2 

myQ ~ "select list_name, Hst_name_description , REC_ID * _ 
& " from list_names " _ 

& • where productjd = " & Session("PRODUCT_ID") _ 
& " Order by listjiame * 

showSetupTable Ijitles, myQ, l_editProc,l_addProc, I_coIumnCOunt %> 

</td> 

</tr> 

</tabIe> 
</form> 
</body> 
</html> 
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setupltstsegment.asp 



<%@ Language= VBScript %> 
<!- # include flle= : ^./support/giobal_constants.asp , * -> 
<f- # include file^ysupport/dbConnectioaasp" --> 
<!- # include file="../support/adoUtils.asp M -> 
<!- #include file=\./support/srcTab,asp" -> 
<!- # include file=".Vsupport/setupTab.asp" ~> 
<!-#include file="../support/JavaScripts.asp" -> 
<% 

l_this_file - "setupListSegmentasp" 
l_showPid - true 

if not ( session( t, Product_id K ) > " " ) then 
Response.Redirect("admin2a.asp?FR==" & Ijhisjile ) 
end if 



l_name = "List Segment" 

i_descr = "A specific selection from a list (i.e. 90 day purchasers, expires, male). " & vbcr 
%> 

<html> 
<head> 

<titlex%Response. Write l_name%x/title> 
</head> 



<body bgcolor="99CCFF" background= n Jgraphics/adminhor2slice2.gir text="#00000(T 

link="#000000" vlink="#000000 H marginwidth^O" marginheight^O" ieftmargin="0" topmarguv="(r> 
<form method-"post" action name> 

<table width="660" border="0" cellspacings" 10" cellpadding="0" va!ign="top"> 

<tr vaIign s ="top' , > 
<td valign="top"> 
<% 1 call setupTab's Left Caption 



LeftCaptions "List Segment", l_descr, l_showPid, I_this_file 
%> 
</td> 

<td rowspan="6" width="468" valign«"top" ALIGN-" LEFT"> 
<% ' call setupTab's show 
dim I_tit!es(l) 
l_titles(0) = "List Segment" 
i_titles(l) = "Description" 
I jeditProc = "editListSegmentasp" 
l_addProc - "addListSegment.asp" 
l_coIumnCOunt = 2 

myQ = "select list_segment_name, list_segment_description , RECJD " _ 
& " from list_segments * _ 

& " where product Jd = " & Session(*PRODUCT_ID") _ 
& M Order by list_segment_name * 

showSetupTable Ijitles, myQ, l_editProc,l__addProc, l_coiumnCOunt %> 

</td> 



</tr> 

</table> 
</form> 
</body> 
</htmi> 
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setup panel package.asp 



<%@ Language= VBScript %> 
<!- # include file=\./support/globaI_constants.asp" — > 
<!- # include file-Vsupport/dbConnection.asp" -> 
<!- # include fiie= w .7support/adoUtils.asp H ~> 
<[- # include file^'Wsupport/srcTab.asp" -> 
<!~ U include file=".7support/setupTab.asp" -> 
<1- # include file^Vsupport/JavaScripts.asp" — > 
<% 

l_this_file = "setupPanelPackage.asp" 
l_showPid - true 

if not ( sessionCProductJd") > " * ) then 
Response.Redirect("admin2a.asp?FR= ,, & l_this_file ) 
end if 

l_name - "Panel Package" 
l_descr = "The code or description of a specific mailed package/ & vbcr 

%> 

<html> 
<head> 

<titIe>Panel Package</title> 
</head> 

<body bgcolor="99CCFF" background^.7^aphics/adminhorzsIice2.gir text-'tfOOOOOO" 

link=*#000000" vlink^"#000000" marginwidth^O" marginheight="(r leftmargin="0" topmargm="0"> 
<form method="post" action name> 

<table width="660" border="0" cellspacing="l<T ccl!paddingr"0" valign^top^ 

<tr vaiign="top M > 
<td valign-"top"> 
<% ' call setupTab's Left Caption 

LeftCaptions l_name, l_descr, l_showPid,l_this_fi!e 
%> 
</td> 

<td rowspan="6" width="468" vaiign-"top" ALIGN-" LEFT M > 
<% ' call setupTab's show 
dim I_titles(l) 

1 jitles(O) = "Panel Package" 
l__titles(l) = "Description- 

l_editProc = "editPanelPackage.asp" 
l_addProc = "addPanelPackage.asp" 
l_columnCOunt ~ 2 

myQ = "select Package name, Package_description, RECJD "_ 

& - from prod_panel_package where productjd - " & Session("PRODUCT_ID") _ 

& " Order by Package jiame " 

showSetupTable Ijities, myQ, i_editProc,l_addProc, l_columnCOunt %> 

</td> 

</tr> 

</tab!e> 
</form> 
</body> 
</html> 
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setuppanelsubtvpe.asp 



<%@ Language^VBScript %> 

<!— # include file=^./support/globai_constants.asp ,1 -> 

<!- # include file=\isuprjort/dbConnection.asp" -> 

<!- # include fiIe= M .isupport/adoUti!s.asp fl --> 

<!- # include file= M Jsupport/srcTab.asp" --> 

<!- # include file=V/support/setupTab.asp" -> 

<!- # include file^./support/JavaScripts.asp" -> 

<html> 
<head> 

<tit!e>Panel Sub Type</title> 
</head> 

<body bgcolor="99CCFF" background= M .7graphics/adminhorzslice2.gir text- H #000000" 

Hnk= M #000000 M vlink="#000000 M marginwidttv="(r marginheight="<r leftmargin="<T topmargin="O w > 
<form method="post" action name> 

<lable width="66<T border="0 H celispacing="10 H cellpadding="0" vaIign="top"> 

<tr valign="top"> 
<td vaJign= M top*> 
<% * call setupTab's Left Caption 

l_descr - "Another field used to further define a set of related Panels (if necessary), (i.e. sweepstakes, newstand, inserts)." & vbcr 

I_showPid - false 

LeftCaptions "Panel Sub Type", l_descr, ljshowPid,I_this_file 
%> 
</td> 

<td rowspan="6" width="468" valign="top" ALlGN="LEFn> 
<% ' call setupTab's show 
dim l_titles(l) 

IJitles(O) = "Panel Sub Type" 
l_titles( I ) — "Description" 

I_editProc - M editPaneISubType.asp" 
l_addProc - "addPanelSubType.asp" 
l_coIumnCOunt - 2 

myQ = "select panel_sub_type_name,panel_sub_type_descr, RECJD " _ 
& " from corp_pane!_sub_type " 
& " Order by panel_sub_type_name " 

showSetupTabie ljittes, myQ, 1 editProc,l_addProc, I_columnCOunt %> 

</td> 

</tr> 

</table> 
</form> 
</body> 
</htmI> 
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setuppaneltesttvpe.asp 



<%@ Language^VBScript %> 
<!- #inciude file= n ../support/global_constants.asp" -> 
<!— #include file="../support/dbConnection.asp" -> 
<!— #include fiIe= M ,7support/adoUtiIs.asp" -> 
<!— ^include file=".,/support/srcTab.asp" — > 
<!-#inciude file="../support/setupTab.asp M -> 
<!- # include fIie=^Vsupport/JavaScripts.asp ,, --> 

<html> 
<head> 

<titIe>PaneI Sub Type</titie> 
</head> 

<body bgcolor="99CCFF" background- w ../graphics/adminhorzslice2.gir text="#000000" 

link="#000000 w vlinic="#000000" marginwidth= M (T marginheight^O" leftmargin^O" topmargin="0 ,, > 
<form method- H post" action name> 

<table width="660 w border="0" cellspacings" 1 0 H cellpadding="(T valign="top"> 

<tr valign^top^ 
<td valign-"top"> 
<% 1 call setupTab's Left Caption 

i_descr = "A field used to define a set of related panels by test method (i.e. price, offer, term). * & vbcr 
1 showPid = false 



LeftCaptions "Panel Test Type", i_descr, l_showPid, IjhisJUe 
%> 

</td> 

<td rowspan="6" width="468" valign="top" AL1GN-"LEFP> 
<% ' call setupTab's show 
dimljitles(t) 

ljitles(O) « "Panel Test Type" 
ljitles(l) - "Description** 

l_editProc - "editPaneiTestTypcasp' 1 
l^addProc = "addPaneiTestType.asp" 
l_columnCOunt - 2 

myQ - "select panel Jest Jype_name,panel Jest Jype_descr, RECJD " _ 
& " from corp_panel_test_type " _ 
& " Order by panel_test_type_name " 

showSetupTable Ijitles, myQ, l_editProc,l_addProc, i_columnCOunt %> 

</td> 

</tr> 

</tabie> 
</form> 
</body> 
</html> 
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setup pa neltvpe.asp 



<%@ Language=VBScript %> 

<!- #include file^.ysupport/globaljxmstants.asp* -> 

<!- #include file=".7support/dbConnection.asp* -> 

<!- #include file="„/support/adoUtils.asp" -> 

<!- #include file=\7support/srcTab.asp H -> 

<!- #include file=".Vsupport/setupTab.asp" -> 

<!- #include file= : "../support/JavaScripts.asp" -> 

<htmi> 

<head> 

<title>PaneI Type</title> 
</head> 

<body bgcolor="99CCFF" background^ Vgraphics/adminhorzslice2.gir text="#000000* 

link-*#000000" vlinfc="#OO0OOCT marginwidth="0* margmheight^O" leftmargin^O" topmargin=*(T> 
<form method^post" action name> 

<table width="66(T border="(T cellspacing^ 1<T ceilpadding^O" vaiign^top^ 

<tr valign="top tt > 
<td valign="top"> 
<% ' call setupTab's Left Caption 

l_descr - "A set of related panels typically used to distinguish control panels from test panels. M & vbcr 

I_showPid = false 

LeftCaptions "Panel Type", l_descr t l_showPid, ljhisjile 
%> 
</td> 

<td rowspan^'V width 3 *^^ vaiign="top" ALIGN -"LEFT^ 
<% • call setupTab's show 
dim l_titles(l) 
IJitles(O) = "Panel Type" 
l_tities(I) = "Description" 

l_editProc = "editPanelType.asp" 
l_addProc - "addPanelType.asp" 
l_columnCOunt = 2 

myQ = "select panel_type_name,panel_type_descr, R£C_ID * _ 
& " from corp_panel_type * _ 
& " Order by panel_type_name " 

showSetupTable I titles, myQ, l_editProc,l_addProc, l_columnCOunt %> 

</td> 

</tr> 

</table> 
</form> 
</body> 
</html> 



Integrated Marketing Technology 



9/27/00 2:22 PM 



Page 192 of 200 



IMT Subscription Marketing Reporting System 



setuppriorsrcdesc.asp 



<%@ Language= VBScript %> 
<!- #include file=" Jsupport/global_constants.asp" ~> 
<!- # include file=\7support/dbConnection.asp M -> 
<!- #include file=^ysuppo^t/adoUtils.asp ,, -> 
<!- ^include file=Vsupport/srcTab.asp" -> 
<!~#include file="../support/setupTab.asp" -> 
<!— ^include file^.ysupport/JavaScripts.asp" -> 
<% 

I_this_file = "setupPriorSrcDesc.asp" 
l_showPid - true 

if not ( session( w Product_id") > " " ) then 

Response.Redirect("admin2a.asp?FR== H & Ijhisjile ) 
end if 



I_name = "Source Identifier** 
l_descr = "Describes Prior Sources" & vbcr 
%> 

<htral> 
<head> 

<tit!e>Prior Source Description</tit!e> 
</head> 

<body bgcolor="99CCFF" background='*.ygraphics/adminhor2slice2.g!r text="#00000<T 

iink="#000000" vlink^OOOOOO" marginwidth="0" marginheight^O" leftmargin^O" topmargin=*0"> 
<form method="post" action name^form 1 i deform 1> 

<table width="66(T border="0" cellspacings" 10" cellpadding="0" vaIign 3SS "top ,1 > 

<tr vaiign="top"> 
<td vaIign="top"> 
<% ' call setupTab's Left Caption 

LeftCaptions l__name, l_descr, I showPid,l_this_file 
%> 
</td> 

<td rowspan^e" width="468" valign="top" ALIGN-' LEFT"> 
<% 1 call setupTab's show 
dim l_titles(6) 

l_titles(0) - "Source Identifier" 

Ijities(l) = "Renewal Prior Source Description" 1 

l_titles(2) = "Billings Current Source Description" 

I_titles(3) « "Model Source Category" 

l_titles(4) = "Model Source Description" ' 

!_titles(5) - "Agent Source Description" 

I_editProc - "editPriorSrcDesc.asp" 
l_addProc - "addPriorSrcDesc.asp" 
l_columnCOunt ~ 6 

myQ = "SELECT prior^sourcejdentifier, prior_source_desc, billingj:ur_src_desc, model_source_cat, model_source t 
agent_src_desc, REC_ID " _ 

& " FROM prior source_desc WHERE H _ 

& " Productjd & Session("PRODUCT_ID H ) _ 

& " ORDER BY prior_sourcejdentifier " 

showSetupTable ljities, myQ, LeditProc^addProc, i_columnCOunt %> 

</td> 

</tr> 

</table> 
</form> 
</body> 
</html> 
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setup rsefcasp 

<%@ Language=VBScript %> 
<!- ^include fiie=' , .7suppoTt/giobal_constants-asp" ~> 
<!- #inctude fiie= H .Vsupport/dbConnection.asp" -> 
<1- #include file=V/support/adoUtils.asp" -> 
<!-#inc!ude fileF^./support/srcTab.asp'' -> 
<!-- #include flie=^Vsuppo^t/setupTab.asp , ' -> 
<!- #indude file=V/support/JavaScripts.asp w -> 
<% 

!_this_file = "setupRSetasp" 
l_showPid = true 

if not ( sessionCProductJd") > " " ) then 
Response.Redirect("admin2a.asp?FR^ ,? & t Jhisjile ) 
end if 



l_name - "Revenue Set" . 

I descr = "Revenue over and above subscription revenue, applied to a Campaign, Panel or Key. (i.e. List Rental Revenue, 

Advertising Revenue). " 
%> 

<htmi> 
<head> 

<titlex%Response. Write l_name%x/tttle> 
</head> 



<body bgcolor= H 99CCFF rt background= tt ../graphics/adminhorzslice2.gir text^OOOOOO" 

link= ,, #G0000<r viink^OOOOOO" marginwidth="0" marginheight="fT Ieftmargin= M 0 T1 topmargm="0": 
<form method^post" action name=forml id=form ! > 

<table width="66<r border="0" cellspacing^ 10* cellpaddmg=*0" vaiign= M top"> 

<tr vaIign=*top"> 
<td vaiign="top , '> 
<% ' call setupTab's Left Caption 

LeftCaptions l_name, l_descr, l_showPid, l_this Jile 

%> 
</td> 

<td rowspan="6" width="468 M valign="top" ALIGN^"LEFT"> 
<% ' call setupTab's show 
dim l_tities(l) 
l_titles(0) - "Revenue Set" 

l_editProc = "editRSetasp" 
l_addProc = "addRSetasp" 
l_columnCOunt = 1 

myQ= "select r_set_name, RECJD 
& "from revenue_sets * _ 

& " where productjd = " & Session( M PRODUCTJD") _ 
& " Order by r_set_name M 

showSetupTable I_titles, myQ, l_editProc,l_addProc, l_columnCOunt %> 

</td> 

</tr> 

</table> 
</form> 
</body> 
</html> 
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setupsourcename.asp 



<%@ Language=VBScript %> 

<!- #inciude file=*../support/gIobal_constants.asp rt -> 

<!~#include file=\Vsupport/dbConnection.asp" -> 

<!- ^include file=rysupport/adoUtils.asp" -> 

<!-# include file="../support/srcTab.asp" -> 

<!- # include fiie="../support/setupTab.asp" ~> 

<!- #include fiie=".Vsupport/JavaScripts.asp" -> 

<html> 
<head> 

<title>Source Description</titIe> 
</head> 

<body bgcolor="99CCFF" background= rt .7graphics/adminhorzsIice2.gir text^OOOOOO" 

iink^OOOOOO" vlink^OOOOOO" marginwidth^O" margmheight="(T teftrnargin== M (T topmargin- H 0' 
<form method^post" action name=form! id=forml> 

<table width=*660" border= M 0" cellspacing^ 1 0 M c*Upadding= H 0" valign="top"> 

<tr vaHgn-"top"> 

<td vaIign="top"> 

<% ' call setupTab's Left Caption 

l_descr = "Describes a specific channel of sale." & vbcr 

l_showPid = false 

LeftCaptions "Source Description", Ldescr, l_showPid, ljthisjile 
%> 
</td> 

<td rowspan="6" width="468" valign="top" ALIGN— "LEFT^ 
<% ' call setupTab's show 
dim Ijitles(l) 
l_titles(0) = "Source*' 
tjittes(l) = "Description" 

l_editProc - "editSourceName.asp" 
l_addProc = "addSourceName.asp" 
i_co!umnCOunt = 2 

myQ = "select u_source_name 1 u_source_description, REC__ID " _ 
& " from Source_descriptions " _ 
& " Order by u_source_name " 

showSetupTable Ijitles, myQ, l_editProc,l_addProc, l_co!umnCOunt %> 

</td> 

</tr> 

</table> 
</form> 
</body> 
</html> 
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setuptabbounccasp 



<%@ Language=VBScript %> 
<% Response. Redirect(Request.Form("setupTab")) %> 
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tabautosetup,asp 

<%@ Language=VBScript%> 

<!- # include flie= M ../suppo^t/giobai_constants.asp ,, -> 
<!— ^include fiIe- w .7support/dbConnection.asp" -> 
<!— ^include file=".7support/adoUtiIs.asp H -> 
<!- ^include fHe=^./support/s^cTab.asp ,, ~> 
<!- #include fde-'Vsupport/JavaScripts.asp'' — > 

<% 

l_this_file = *tabautosetup.asp M 
l_showPid - true 

if not ( sessionCProdu^id") > " * ) then 

Response. RedirectCadmin2a.asp?FR= ,, & ljhis_file ) 

end if 

If RequesLfcrmfRinsfAUTOSETUP") o " M then 'run autosetup_wizard stored proc 
'response.write *<font size^S^Executtng AutoSetup Wizard .„</fontxp>" 
objCMD.ActiveCofinection = strSQLOLEDB 
objCMD,CommandText - "autosetup_wizard* 
objCMD.CommandType = adCmdStoredProc 
objCMD.Parameters.refresh 

objCMD.Pararneters( 1 ). Value - cint(0) '0 for no returned text, 

non-zero to print output 

objCMD.Parameters(2).value - cin^SessionCProducyd")) 'product Jd 

Set TempNonSessionVar = objCMD.ExecuteO 
'response.redirectCtabautosetup.asp") 

end if 

l_this_file - "admin4a,asp" 

SessionCreferjage") = "admin4a.asp* 
Sessionfreferjritfe") « "Source" 

%> 

<headxtitle>tabautosetup.asp</title> 

<% LorieScripts %> 

</head> 

<body bgco]or^ n #99CCFF vlmk= H 00Q0O0 M Iink= M 003366 ,, 

onUad= M MMj)reloadImagesCgraphics/edi^ 

5m269583y> 

<% * <body bgcoior="#99CCFF vlink="00Q00(T link='*003366' , > %> 

<table width^'W borde^O" celIpaddmg= M 2 ,, > 
<% prevSelections (3) %> 

<form method="post" action^tabautosetup.asp" id="form2" name=' , form2 t1 > 
<tr valign= K BOTTOM"> 
<td width- H 65 M > 

</td> 

<td width^SOO^ 
<p> <% 

strSQL = "select source_name, srcjndicator, vaIid_from_date, valid jo_date, setup_mask, e_set__name, rec_id " & _ 
M from autosetup_scheme " & _ 
" where productjd = " & Session^PRODUCTJD ,, ) & _ 
" order by src_cat_name " 

%> 

</td> 
</form> 
</tr> 

<tr valign-"top"> 
<td width= w 64(T coispan= M 3"> 
<p> </p> 
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</td> 
</tr> 
</tafale> 
<% 



l_query = strSQL 

l_columnCount = 6 
l_addProc = *add_autosetup.asp" 
l_editProc = "edit_autosetup.asp" 
dim l_titie(6), l_coiumnWidth(6) 



ijitle(0) = " Source" 
ljtitle(l) = M Source Indicator " 
l_title(2) = " Select Date From " 
l_title(3) = * Select Date To * 
1 Jitle(4) - " Setup Mask " 
f title(5) = " Expense Set " 
l_columnWidth(0) = "166" 
1 coiumnWidth(l)-Mr 
fcolumnWidth(2) = "50" 
ljttlumnWidth(3) = "50" 
1 columnWidth(4) = "50" 
fcolumnWidth(5) = "50" 



%> 

<form method=post action^"tabautosetup.asp" id= H formid" name= M formname M > 
<ahref^http7/w\w.imtnetw^ 
lnstructions</a><brxbr> 

<input type-"SUBMIT" Vaiue="Run Auto-Setup Wizard" Name-" RUN AUTOSETUP" id=" RUN AUTOS ETUP fl > 
</form> 

<font size^S^AutoSetup Schemes</fontxp> 

<% adminTable l_Title, l_Query, lj:ditProcJ_addPrcK;J_columnWidth, L_ColumnCount 



rec id " & 



l_query = "select src_cat_name, campaign_code, campaign_description, campaign_date, panet_scheme, rec_id 

1 from autosetup_campaign_def " & _ 

* where productjd = " & Session("product_id") & _ 
" order by src_cat_name, campaign_description, campaign_code " 

'redim l_title(4) 

'redim l_columnWidth(4) 

l_columnCount = 5 
l_addProc = "add_campaign_def-asp" 
l_editProc = "edit_campaign_de£ asp" 

l_title(0) = " Source Category " 

Ijitle(l) = " Campaign Code " 

l_titie(2) - " Campaign Description " 

i Jitie(3) = " Campaign Date " 

l_title(4) = " Panel Scheme " 

l_columnWidth(0) = "50" 
l_coiumnWidth(l) = "50" 
t_columnWidth(2) = "50" 
l_columnWidth(3) = "50" 
i_columnwidth(4) = "50" 
%> 
<p> 
<p> 

<font size- 5*>Campaign Name Definitions</fontxp> 

<% adminTable l_T itle > LQuery, l_editProc,l_addProc,l_columnWidth, L_ColumnCount 
I_query = "select sourcejiame, sourcejndicator, priorjsourcejndicator, valid_from_date, valid jo_date, 

1 from autosetup_renewal_psdef " & _ 

" where product_id = " & Session("productjd") & _ 

" order by src__cat_name " 
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l_columncount = 5 

I_addProc = N add_renewal_psdef asp" 
l_editProc ~ "edit_renewai_psdef.asp" 
l_title(0) = " Source * 
Uitle(I) = " Source Indicator " 
l_title(2) = n Prior Source Indicator " 
ljitle(3) = w Valid From" 
l_title(4) « * Valid To " 

I cotumnWidth(0) = w 50" 
FcolunmWiddi(!) = "5<r 
lj»IunmWidth(2) = M0<r 
LcolumnWtdth(3) = "50 M 
lj;olumnWidth(4) = "50 w 
%> 
<p> 
<p> 

<font size- 5'>Renewal Prior Source Defmitions</font> 
<p> 

<% adminTable t_Titie, LQuery, l_editProc t l_addProc t l_columnWidth, L_ColumnCount %> 

<p> 

<p> 

<% 

\_query - "select panei_scheme, panel_codes, panel_name, recjd H & _ 
" from autosetup_panel_def * & _ 
" where product jd = *& Session("productJd") &_ 
* order by pane!_scheme " 

l_co!umncount = 3 
l_addProc ~ "add_pane!jiefasp n 
l_editProc - "edit_panel_def.asp" 
1 Jitle(0) *= " Panel Scheme " 
f title(l) = " Panel Codes M 
l_tiUe(2) = " Panel Name*' 

l_columnWidth(0) = "50" 

l_columnWidth(i) - "100" 

l_columnWidth(2) = "50" 

%> 

<p> 

<p> 

<font size^'S^Panel Name Definitions</fcnt> 
<p> 

<% adminTable l_Titie, l_Query, l_editProcJjiddProc,Ij;otumn Width, L_ColumnCount %> 



</form> 
</body> 
</htmI> 
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IMT REPORTING SYSTEM 
STORED PROCEDURES 
(USER) 



^STORED PROCEDURE > 

Add keys 

Addrptdef 

Autosetup wizard 

Cascade update 

Concatccodes 

Concat p codes 

Create rlOl topline 

Del key 

Do 101 flow seldatefix 

Doavail4Qlkeys 

Doavail40 1 keysbypid 

Doavailkeys 

Doavailkeysbypid 

Dobaserankinfo 

Docampesets 

Docamprsets 

Doestmaxeffort 

Domw 

Dopanelesets 

Dopanelrsets 

Doprodsetup 

DorlOl summary 

Dor401 summary 

Dorecyclekey 

Dorecyclepanelkey 

Dosourceinds 

Dosummary 

Dosummarydb 

Expenses 

Getcorpinfo 

Maxbilleffort 

MaxefFort 

Maxgifteffort 

Pagedquery 

Rebuild rpt cats 

Show columns 

Sp add autosetup schemes 

Sp add campaign 

Sp add campaign def 

Sp add corp pane 1 sub type 

Sp add corp panel test type 

Sp add corp panel type 

Sp add keys 

Sp add keys2 

Sp add_panel 

Sp add_panel def 

Sp add_prior source desc 

Sp add prod camp status 
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Sp add_prod camp type 

Sp add prod e set 

Sp add jprod list cat 
Sp add prod list name 

Sp add prod list segment 

Sp addjprod panel package 

Sp prod r set 

Sp add renewal psdef 

Sp add source 

Sp add source description 

Sp cascade product id 

Sp deletecamp statuses 

Sp deletecamp types 

Sp deletepanel subtypes 

Sp deletepanel testtypes 

Sp deletepanel types 

Sp deleterpt def 

Sp edit autosetup 

Sp edit autosetup campaign def 
Sp edit autosetup panel def 
Sp edit_autosetup_renewal_psdef 

Sp edit campaign 

Sp edit corp panel sub type 
Sp edit corp panel test type 

Sp edit corp panel type 

Sp edit key 

Sp edit panel 

Sp edit prior source desc 

Sp edit_prod camp status 

Sp edit prod camp type 

Sp edit prod e set 

Sp edit prod list cat 

Sp edit prod list name 

Sp edit_prod list, segment 

Sp edit prod panel package 

Sp edit prod r set 

Sp edit source 

Sp edit source description 

Sp loginfo 

Sp deletecamp types 

Sp deletepanel subtypes 

Sp deletepanel testtypes 

Sp deletepanel types 

Sp deleterpt def 

Sp edit autosetup 

Sp edit autosetup campaign def 
Sp edit autosetup panel def 
Sp edit autosetup renewal psdef 

Sp edit campaign 

Sp edit corp panel sub type . 
Sp edit corp panel test type 
Sp edit corp panel type 
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Sp_editjkey 
Sp edit panel 



Sp edit prior source desc 
Sp edit jsrod camp status 
Sp edit prod camp type 

Sp edit prod e set 

Sp edit_prod list cat 

Sp edit prod list name 
Sp edit prod list segment 
Sp editj?rod panel package 

Sp edit_prod r set 

Sp edit edit source 

Sp edit source description 

Sp loginfo 

Sp removeduplicate 101 keys 
Sp removeduplicate40 1 keys 
Sp updatecamp statuses 

Sp updatecamp types 

Sp updatepanel subtypes 
Sp updatepanel testtypes 

Sp updatepanel type 

Sp getrptlist 
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Procedure Name: Addkeys 

Script Date: 1/14/99 3:43:07 PM ******/ 
Script Date: 1/12/99 1 1:05:37 PM ******/ 
Script Date: 11/28/98 2:31:13 PM ******/ 
Script Date: 1 1/17/98 2:43:36 PM ******/ 
Script Date: 10/19/98 6:03:58 PM ******/ 
Script Date: 10/6/98 7:56:48 PM ******/ 
Script Date: 10/6/98 11:08:02 AM******/ 

@fuHjpromo Jcey varchar (25), 
@dt_validJrom smalldatetime, 
@dt_valid Jo smalldatetime, 
@src_cat_name varchar(30), 
@src_indicator char (3), 
@panel_name varchar (250), 
@camp_name varchar (250), 
@productJd numeric(8,0), 
@source_name varchar(250) 

AS 

insert into keys 
( 

full_promoJcey, 



/****** Object: Stored Procedure dbo.addJCeys 

/****** Object: Stored Procedure dbo.addJCeys 

/****** Object: Stored Procedure dbo.addJCeys 

/****** Object: Stored Procedure dbo.addJCeys 

/****** Object: Stored Procedure dbo.addJCeys 

/****** Object: Stored Procedure dbo.addJCeys 

/****** Object: Stored Procedure dbo.addJCeys 



dt_validJrom, 

dt_validJo t 

src_cat_name, 

srcjndicator, 

panel_name, 

camp_name, 

productjd, 

source_name 

) 

values 

( @fuil_promo_key, 
@dt_vaiidJrom ) 
@dt__validJo, 
@src_cat_name, 
@srcJndicator, 
@panel_name, 
@camp_name, 
@productJd, 
@source_name 

) 

Delete from avail Jceys where full_promojcey - @full_promo_key and product Jd=@productjd 
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Procedure Name: Addrptdef 



/* 

( 

@parameterl datatype = default value, 
@parameter2 datatype OUTPUT 

) 

*/ 

(@rpt_jsroup varchar(75), 
@rpt_title varchar(75), 
@rpt_description varchar (250), 
@rpt_selFormula varchar(lOOO), 
@rpt__path varchar(250), 
@rpt_paraml varchar(50), 
@rpt_param2 varchar(50), 
@rpt_param3 varchar(50), 
@rpt_param4 varchar(50), 
@product_jd varchar(250), 
@login varchar(50) 

) 

As 

/* set nocount on */ 
Insert into rpt_Defs 
(rptjp:oup,rptjitle,rpt_d^ 
Values 

(@rpt^oup,@rptJitie,@^ 
uct_id) 

execute sp_LogInfo ©product Jd,@login/Saved Report\@rpt_title 
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Procedure Name: Autose tup wizard 

@verbose int - 0 means no text, non-zero means display text messages 
, @product_id int 

as 

begin — autosetup wizard 

if @product_id > 0 -product id is set to -1 to run autosetup_wizard for ALL PRODUCTS. This happens is 

doavaiHOlkeys 

begin 

declare avail_keys cursor 
for select product_id 

, full_promo_key 

, fiilfillmentjiouse 

, dt_valid_to 

, source_identifier 

, mailjqty 

from avail_keys 

where fulfillmentjiouse is not null 

and product_id =* @product_id 

—or product_id = 360 

-or full_promo_key like "6RAA_K_529" 

end 
else 
begin 

declare availjceys cursor 
for select product_id 

, full_promo_key 

, fulfillmentjiouse 

, dt_valid_to 

, source_identifier 

, mailjqty 

from availjceys 

where fulfillmentjiouse is not null 

end 

-Avail Key Vars 

—declare @product_id varchar(50) 
declare @availjcey varchar(50) 
declare @fulfillment_house varchar(50) 
declare @dt_vaiid_to datetime 
declare @source_identifier char(l) 
declare @mail_qty int 

-Campaign vars 

declare @campaign_code varchar(50) 

declare @campaign_description varchar(50) 

declare @recjd int 

declare @srcJndicator char(3) 

declare @camp_name varchar(250) 

declare @title_name varchar(250) 

declare @camp_datejx datetime 

-Setup Wizard vars 
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declare @setup_mask varchar(50) 
declare @src_cat_name varchar(50) 
declare @source_name varchar(250) 
declare @prior_source_indicator varchar(2) 
declare @valid Jrornjiate datetime 
declare @valid_to_date datetime 
declare @grp_name varchar(50) 
declare @e_set_narne varchar(50) 

-panel vars 

declare @panel_name varchar(250) 
declare @panel_code varchar(250) 
declare @panel_scheme varchar(50) 

—local vars 
declare @\ int 

declare @number_of_valid_schemes int 



if @verbose o 0 print "Starting ..." 
open avail_keys 

fetch next from availjceys into @product_id, @avail_key, (gfulfillmentjiouse, @dt_valid Jo, 
@source - identifier ) @mail_qty 

while @@fetch_status = 0 -Loop through avail keys and attempt to assign them to campaigns 
begin 

if (gverbose o 0 print "Avail Key n + @avail_key 

if @verbose o 0 print "Source Identifier " + @source_identifier 

-Get autosetup vars for schemes matching current key 

set @setup_mask = null 

-If the number of valid schemes is greater than zero and the source category is renewals 
then the source is split 

-and a match is required from the prior source definition table(autosetup_renewal_psdef) 
select @number_of_valid_schemes = count(*) 

from autosetup_scheme 

where product_id = @product_id 

and valid Jrom_date <= @dt_valid_to 

and validjo_date >= @dt_valid_to 

and src_indicator = @source_identifier 

— GREGG ADDED THE FOLLOWING CONDITION TO THE VALID 

SCHEME COUNTER 

and setup_mask = @setup_mask 
select @setup_mask = setup_mask 

, @src_cat_name = src_cat_name 

> @src_indicator = src_indicator 

, @source_name = source jiame 

, @validj£rom_date = va!id_from_date 

, @valid__to_date = valid_to_date 

» @grp_name = grp_name 

, @e_set_name = isnull(e_set_name/ , Undefined") 

from autosetup_scheme 

where product_id = @product_id 

and valid_from_date <= @dt_valid_to 

and valid_to_date >= @dt_valid_to 

and src_indicator = @source_identifier 

and len(setup_mask) = len(@avail__key) 
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if @verbose o 0 print "Source Indicator => " + @src_indicator 

if @setup_mask is not null -Build campaign code based on setup mask, otherwise move 

on to next scheme 

begin 

set @campaign_code = null 
set @camp_name = null 

-if len(@avail_key) = 1 1 and @src_cat_name = "RENEWALS" set 

@setup_mask = "SxxxxZZxCCC" 

if ©verbose o 0 print "Found an applicable setup mask! => " + @setup_mask 

if @Mfillment_house = "CENTROBE" or @fulfillment_house = "PALM 
COAST" exec concat_c_codes @setup_mask, @avail_key, @campaign_code output 

if @&lffflment_house = "CDS" and (@src_cat_name = "DTP" or 
@src_cat_name = "GIFT") exec concat_c_codes @setup_mask, @avail_key, @campaign_code output 

if @fuifiilment_house = "CDS" and (@src_cat_name = "RENEWALS" or 
@src_cat_name = "BILLING") 

begin -set code to pos2 & last pos then match value with def table and set 

description 

set @campaign__code = substring(@avail_key,2,l) + 
substring(@avail_key,len(@avail_key), 1 ) 

end -if 

if ©verbose o 0 print "campaign code =>" + @campaign__code 

select @camp_name = campaign_description 
, @camp_date__fr = campaign_date 

from autosetup_campaign_def 
where campaign_code = @campaign_code 
-and source jdentifier = substring(@availjcey,l,l) 

and src_cat_name - @src_cat_name 
and product_id = @product_id 

if @camp_name is null -Build new campaign name 
begin 

set @camp_name = "" 

if @verbose o 0 print "Source Category Name —> " + 



@src_cat_name 
@fulfillment_house 



if @verbose o 0 print "Fulfillment House z 

if @fulfillment_house = "CENTROBE" 
begin 



=>" + 



if @src_cat_name = "DTP" or @src_cat_name = "GIFT" set 
@camp_name ~ substring(@avail_key, 6, 4) + " Campaign " + @campaign_code 

-if @src_cat_name = "RENEWALS" set @camp_name = 

"Expire " + @campaign_code 

if @src_cat_name = "RENEWALS" 
begin 

set @camp_name = null 
select @camp_name = campaignjiescription 
, @camp_date_fr = campaign_date 

from autosetup_campaign_def 
where src_cat_name = @src_cat_name 
and campaign_code = @campaign_code 
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@campaign_code 



and product_id = @product_id 
if @carnp_name is null 
begin 

set @camp_name = "Expire " + 
set @camp_datejr = null 

end 



end 

if @src_cat_name = "BILLING" set @camp_name = 
substring(@avail_key } 5,2) + " Credit Period " + @campaign_code 

end 

if ©fulfillment Jiouse = "PALM COAST" 
begin 

if @src_cat_name = "DTP" or @src_cat_name = "GIFT" set 
@carnp_name - substring(@availjcey, ien(@avaii_key) -3,4) + " Campaign " + @campaign_code 

if @src_cat_name = "RENEWALS" set @camp_name = 
substring(@availjcey, len(@avail_key) - 3, 4) + " Expire " + @campaignj:ode 

if @src_cat_name = "BILLING" set @camp_name = "Credit 

Period " + @campaign_code 

end 

if ©fulfillment Jiouse - "CDS" 
begin 

if @src_cat_name = "DTP" or @src_cat_name = "GIFT" 
begin 

if substring(@avail_key,len(@avail_key) - 1,2) < 8 
begin 

set @camp_name = "200" + 
substring(@avail_key,len(@avail_key) - 1,2) + " Campaign " + @campaign_code 

end 

else 

begin 

set @camp_name = "199" + 
substring(@avail__key,len(@avaii_key) - 1,2) + " Campaign " + @campaign_code 

end 
-end -if 

end 

if @src_cat_name = "RENEWALS" set @camp_name = 

@campaign_code 

if @src_cat_name = "BILLING" set @camp_name = 

@campaign_code 

end 

if @camp_name is null set @camp_name = "Auto setup Campaign - 

Fulfillment House not Set!!! 1 ' 

end -if 

if @verbose o 0 print "Campaign Name => " + @camp_name 

—set prior source indicator 
set @i = 0 

set @prior_source_indicator = "" 
while @i <= len(@setup_mask) 
begin 

set @i = @i + 1 
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if substring(@setup_mask,@i ? l) =1, Z" set @prior_source_indicator = 
@prior_source_indicator + substring(@availjcey, @i,l) 
end -while 

if @verbose o 0 print "Prior Source Indicator ==> " + @prior_source_indicator 
—set source name from renewal table 

—if the number of schemes is > 1 then the source is split - a match must occur 
if @src_cat_name = "RENEWALS" and @number_of_valid_schemes > 1 set 



@source_narne = null 



if @src_cat_name = "RENEWALS" select @source_name = source_name 

from autosetup_renewal_psdef 
where product_id = @product_id 
and src_cat_name = "RENEWALS 1 * 
and patindex('%' + 



substring(@avail_key, 1,1) + '%', sourcejndicator) > 0 

substring(@avaii_key, 1,1) 
@prior_source_indicator 



and @dt_vaiid_to >= vaiid_from_date 
and @dt_valid_to <- valid_to_date 
—and source_indicator = 

—and prior_source_indicator = 

and patindex^ 1 + @prior_source_indicator 

+ '%\ prior_source_Jndicator) > 0 

if @verbose o 0 print "Source Name => M + @source_name 

if @source_name is null and @verbose o 0 print ,r No match to prior source in 

the psdef table!"-if no match was made, move to next scheme 
else 
.begin 

-if a campaign exists use it, if not then create campaign 
set @rec_id = null 
select @rec_id = rec_id 

from campaigns 

where (campaign_code - @campaign_code or camp_name = 

@camp_name) 

and srcjndicator = @src_indicator 
and src_cat_name = @src_cat_name 
and product_id = @product_id 
and source_name = @source_name 
—and camp_date_fr <= @dt_valid_to 
—and camp_date_to >= @dt_vaIid_to 

if @rec_id is not null 

select @camp_name = camp_name 
from campaigns 
where recjd = @rec_id 

if @rec_id is null and @verbose o 0 print "Campaign Not Found!" 

if not (@rec_id is null) and @verbose o 0 print "Campaign Rec ID 
=> " + cast(@rec_id as varchar(50)) 

select @title_name - title_name 
from corp_info 

where product_id = @product_id 
if @verbose o 0 print "Title Name => " + @title_name 

if (@rec_id is null) —no campaign exists, create one; add row to 

campaign def 
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begin 

insert into campaigns 

select @src_indicator as srcjndicator 

, @src_cat_name as src_cat_name 

, @product_id as product_id 

, "Undefined" as camp_type 

, @camp_name as camp_name 

, "Undefined" as camp_status_name 

, null as agt_code 

, null as agt_descr 

, @camp_date_fr as camp_date_fr 

, null as camp_date_to 

, @e_set__name as e_set_name 

, "Undefined" as r_set_name 

, @grp_name as grp_name 

, @title_name as title_name 

, @source_name as source_name 

, null as newstand_sale 

, null as budgeted_jross_pct 

, null as budgeted_vol 

, @campaign_code as campaign_code 

set @rec_id = null 
select @rec_id = rec_id 

from autosetup_campaign_def 

where product_id - @product_id 

and campaign_code = @campaign_code 

and src_cat_name = @src_cat_name 
if @rec__id is null 

insert into autosetup_campaign_def 

(product_id 

, campaign_code 

, campaign_description 

, src_cat_name 

, campaign_date 

, panel_scheme) 

values (@product_id 

, @campaign_code 

, @camp_name 

, @src_cat_name 

, @camp_date_fr 

,null) 

end -if 

-ok, campaign is done, now for the panel 
-Check for panel naming scheme 
set @panel_scheme = null 
set @panel_code = null 

exec concat_p_codes @setup_mask, @avail_key, @panel__code output 

select @panel_scheme = panel_scheme 
from autosetup_campaign_def 
where productjd = @product_id 
and campaign_code = @campaign_code 
--and campaign_description = @campaign_description 
and src_cat_name = @src_cat_name 
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-and campaign_date = @camp_date_fr 
if @verbose o 0 print "Panel Scheme ==> " + @panel_scheme 

if @panel_scheme is not null and @panel_code is not null -use panel 

begin 

set @panei_name = null 
select @panel_name = panel_name 
from autosetupjpaneljief 
where productjd = @product_id 
and panel_scheme = @panel_scheme 
and patindex(*%' + @panel_code + '%', panel_codes) 

— gw print statement below 

if @verbose o 0 print "Panel Name => " + @panel_name 
end 

if @panel_scheme is null or (@panel_scheme is not null and 
scheme is not null and @panel_name is null)-build pane! name from 

begin 

if not(@panel_code > M ") set @panel_name = "Control" 
else set @panel_name = "Panel " + @panel_code 
if @verbose o 0 print "Panel Name —> " + @panel_name 

end - if 

—check to see if a panel exists 
set @rec_id = null 
select @rec_id = rec_id 
from panels 

where campaign_code = @campaign_code 
and src_indicator - @src_indicator 
and panel_code = @panel_code 
and src_cat_name = @src_cat_name 
and source_name = @source_name 
and product_id = @product_id 
—check for unique panel name 
if @rec_id is null select @rec_id = rec_id 
from panels 

where panel_name = @panel_name 
and camp_name = @camp_name 
and src_indicator = @src_indicator 
and source_name = @source_name 
and panel_name - @panei_name 
and src_cat_name = @src_cat_name 
and productjd = @product_jd 
if ©verbose o 0 Print "Panel ID (null means create a new one) => " 
+ cast(@rec_id as varchar(50)) 

if (@rec_id is null) —then panel does not exist so create it 
begin 

insert into panels 

select @camp_name as camp_name 
> @src_indicator as src_indicator 
, @panel_name as panel_name 
, @src_cat_name as src_cat_name 
, @product_id as productjd 



scheme to determine panel name 



>0 



@panel_code is null) or (@panel_ 
default 
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, "Undefined" as panel_type 

, @e_set_name as e_setjiame 

, "Undefined 11 as panel__subtype 

, "Undefined" as r_set_name 

, "Undefined" as test__type 

, null as panel_offer 

, null as panel_offer j>rice 

, "Undefined" as panel_pkg 

, null as paneljpremium 

, null as panel_date_start 

, null as panel_date_end 

, @grp_name as grp_name 

, @title_name as title_name 

, @source_name as source_name 

, "Undefined" as camp_type 

, "Undefined" as camp_status_narne 

, null as agt_code 

, null as agt_descr 

, @valid_frorn_date as camp_date_fr 

, @valid_to_date as camp_date_to 

, null as newstand_sale_marker 

, null as newstand_sale 

, null as budgeted_gross_pct 

, null as budgeted_vol 

, @campaign_code as campaign_code 

, @panel_code as panel_code 

, null as order_qty 

, null as dist_qty 



end -if 

set @rec_id = null 

if @verbose o 0 print "Assigning key to keys table ..." 

—OK, now add the key to the keys table 

if @verbose o 0 print "Expense set name > " + @e_set_name 

if (@e_set_name- 0 1 ) or (@e_set_name is null) set @e_set_name = 

"Undefined" 

insert into keys 

select @avail_key as full_promo_key 

, @dt_valid_to as dtjvalid_to 

, @panel_name as paneljiame 

, @camp_name as camp_name 

» @dt_va!id_to as dt_valid_£rom 

, @src_indicator as src_indicator 

, @src_cat_name as src_cat_name 

, @product_id as product_id 

, @e_set_name as e_set_name 

, null as list_id 

, 0 as level l_expense 

, null as list_cost_rollout_cpm 

, null as list_cost_actual_cpm 

, null as fixed_expense 

, True' as subtotal_flag 

, 0 as level2_expense 

, "Undefined" as r_set_name 

, 0 as IeveI3__expense 
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, 0 as level i_revenue 

, 0 as level2_revenue 

, 0 as level3_revenue 

, null as p_key_descr 

, "Undefined" as paneljype 

, "Undefined" as panel_subtype 

, "Undefined" as test_type 

, null as panel_offer 

, null as panel_ofFer_price 

, "Undefined" as panel_pkg 

, null as panel_premium 

, null as panel_date_start 

, null as panel_date_end 

, @grp_name as grp_name 

, @title_name as title_name 

, @source_name as source_name 

, "Undefined" as campjype 

, "Undefined" as camp_status_name 

, null as agt_code 

, null as agt_descr 

, null as camp_date_fr 

, null as camp_date_to 

, @mail__qty as key_mail_qty 

, null maiI_qty_override 

, null as merge_purge_qty 

, "Mail Qty M as list_cost_basis 

, 1 as Iist_cost_factor 

, "Undefined" as list_cat_name 

, "Undefined" as iist_name 

, "Undefined" as list_segment_name 

, null as optional_effort_id 

, null as newstand_sale 

, "N" as newstand_sale_marker 

, null as budgeted_gross_pct 

, null as budgeted_vol 

, getdateO as date_assigned 

, @campaign_code as campaign_code 

, @panel_code as panel_code 

, "Auto Setup" as dbusername 

, null as order_qty 

, null as dist_qty 

end — if 

end — if, no matching source name 

if ©verbose o 0 print "Getting next avail key ..." 
fetch next from avail_keys into @product_id, @avail_key, @fulfillment_house, @dt_vaiid_to, 
@source_identifier, @mail_qty 
end —while 
close avail_keys 
deallocate avail_keys 
delete from avail_keys 

where exists 

(select * 

from keys k 

where k.full_promo_key = availJceys.full_promo_key 
and k,product__id = avail_keys.product_id) 
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if ©verbose o 0 print "All done!" 

end 
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Procedure Name: Cascade_update 



@field_name VARCHAR(IOO), 
@old_field_value VARCHAR(200), 
@new__field_value VARCHAR(200), 
@level VARCHAR(30), 
@product_id Numeric(9) 
AS 

declare @sql NVarchar(200) 

-print @field_narne + " " + @field_vaiue 

IF ©level - "KEYS" or @levei -"PANELS" or @level="CAMPAIGNS" 
begin 

set @sql = 'UPDATE keys SET 1 + @field_name + 1 = @new_value where '+ @field_name + ' = 
@o!d_value 1 
if @product_id o -1 
begin 

set @sql = @SQL + * and Productjd = ' + cast(@product_id as VARCHAR) 
end 

exec sp_executesql @Sql, N'tgnew^alue VARCHAR(200), @oId_vaiue 
VARCHAR(200) , ,@new_fie!d_value,@old_field_vaIue 
END 

IF @level ="PANELS" or @IeveH"CAMPAIGNS" 
BEGIN 

set @sql - 'UPDATE panels SET * + @field_name + * = @new_value where '+ @field_name + ' = 
@o!d_value ' 
if @product_id o - 1 
begin 

set @sql = @SQL + 1 and Productjd = ' + cast(@product_id as VARCHAR) 
end 

exec sp_executesql @Sql, N^new^alue VARCHAR(200), @o!d_vaIue 
VARCHAR(200y,@new_field_value,@old_field_value 
END 

IF @level="CAMPAIGNS" 
BEGIN 

set @sql = 'UPDATE campaigns SET ' + @field_name + ' - @new_value where '+ @field_name + ' = 
@oId_value 1 
if @product_id o -1 
begin 

set @sql = @SQL + * and Productjd = f + cast(@product_id as VARCHAR) 
end 

exec sp_executesql @Sql, N f @new_value VARCHAR(200), @oId_value 
VARCHAR(200) , ,@new_field_value,@old_field_value 
END 
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Procedure Name: Concat c codes 

@setup_mask varchar(50) 
, @avail_key varchar(50) 
, @campaign_code varchar(50) output as 

—local vars 
declare @i int 

begin 

set @i = 0 

set @campaign_code = mi 

while @i < len(@setup_mask) -loop through each char in mask and add to camp code where 
mask letter is a C 
begin 

set @i = @i + 1 

-select @i, substring(@setup_mask, @i, 1), substring(@avail_key, @i,l) 
if substring(@setup_mask, @i,l) = "C" set @campaign_code = @campaign_code + 
substring(@avail_key, @i,l) 
end -while 

—return @campaign_code 
end — concat c codes 
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Procedure Name: concat_p_codes 

@setup_mask varchar(50) 

, @avail_key varchar(50) 

, @panel_name varchar(50) output as 

-local vars 
declare @i int 



begin 

set @i = 0 

set @panel_name = 

print "Entering concat p codes..." 

print "setup mask is => " + @setup_mask 

print "Avail key is => " + @avail_key 

-print "panel name is => " + @panel_name 

while @i < len(@setup_mask) -loop through each char in mask and add to panel name where 
mask letter is a P 
begin 

set @i = @i + 1 

-select @i, substring(@setup_mask, @i, 1), substring(@avail_key, @i,l) 
if substring(@setup_mask, @i,l) = "P H set @panel_name = @panel_name + 
substring(@avaii_key, @U) 

-print "Panel is now => " + @panel_name 
end -while 

print "Panel is now — > " + @panel_name 
end -concat p codes 
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Procedure Name: Create_rl01_topline 



truncate table rl01_topline 

INSERT INTO rlOlJopline 

Select keys.Product_id as ProducMd, 

keys.src_cat_name as src_cat_name, 

keys.source_name as source_name, 

keys.camp_name ascamp_name, 

— summary fields 

sum(rlOLgross_subs) AS gross_subs, 

sum(rlOLtot_net_subs) AS tot_net_subs, 

min(keysxamp_date_fr) AS camp_date_fr, 

max(keys.budgeted_grossj>ct) AS Budgeted_gross_pct, 

max(keys,Budgeted_vol) AS Budgeted_vol, 

sum(rlOLmail_qty) promo_qty 
FROM keys keys, r 1 0 1 r 1 0 1 , est_max_effort est_max_effort 
WHERE keys.Ml_promo_key = rl01.rl01_key 
AND keys.product_Jd = r 1 0 1 .product_id 
-keys tori 01 

AND rlOl.productjd = est_max_effort.product_id 

AND rlOLsource_IDENTIFIER = estjnax_effort.souce_IDENTIFIER 

AND rlOLissueJDENTIFIER = est_max_effort.issue_IDENTIFIER 

— other stuff 

AND rl01.prior_source_IDENTIFIER = est_max_effortprior - source_IDENTIFIER 

and keys.src_cat_name = 'Renewals' 

AND rlOLeffort_identifier = est_max_effort.max_effort 

GROUP BY keys,Product_id, 

keys.src_cat_name, 

keys,source_name, 

keys.camp_name 

Insert into rl01_topline 
-- else case 

Select keys.Product_id as Product_id, 

keys.src_cat_name as src_cat_name, 
keys.source__name as source_name, 
keys.camp_name ascamp_name, 

— summary fields 

sum(rl01.gross_subs) AS gross_subs, 
sum(r!01.tot_net_subs) AS tot_net_subs, 
min(keys.camp_date_fr) AS camp_date_fr, 
max(keys.budgeted_gross_pct) AS Budgeted _grossj?ct, 
max(keys.Budgeted_vo!) AS Budgeted_vol, 
0 promo_qty 

FROM keys keys, r 1 0 1 r 1 0 1 , est_max_effort est_max_effort 
WHERE keys.full_promo_key = riOLrl01_key 
AND keys.product_id = r 1 0 1 ,product_id 

— keys to rlOl 

AND rl01.product__id ™ est_max_effort.product_id 

AND rlOl.sourceJDENTIFIER = est_max_effortsouce_IDENTIFIER 

AND rlO 1 .issue ^IDENTIFIER = est - max_effort. issue JDENTIFIER 

AND r!01.prior_sourceJDENTIFIER = est_max_effort.prior_source_IDENTIFIER 

— other stuff 
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and keys.src_cat_narne = 'Renewals' 

AND r 101. effort Jdentifier o est_max_effort.max_effort 

GROUP BY keys.Productjd, 

keys.src_cat_name, 

keys.source_name, 

keysxamp_name 

INSERT INTO R101_TOPLINE 
Select keys.Productjd as Productjd, 

keys.src_cat_name as src_cat_name, 

keys.sourcejname as source_name, 

keys.camp_name as campjtiame, 

- summary fields 

sum(rl01.gross_subs) AS gross_subs, 

sum(rl01.tot_net_subs) AS tot_net_subs, 

mfo(keys.camp_datejr) AS camp_date Jr, 

max(keys.budgeted^ross_jpct) AS Budgeted _gross_pct, 

max(keys.Budgeted__vol) AS Budgeted_voI, 

sum(newstand__sale) promojqty 
FROM keys keys, rlOl rlOl, est_max_effort est_max_effort 
WHERE keys.full_promo_key = rlOLrlOl Jcey 
AND keys.product Jd = rlOl .productjd 
keys torlOl 

AND rl 01. productjd = est_max_effort.product_id 

AND rl01.source_IDENTIFIER = est_maxj=ffortsouce JDENTIFIER 

AND rlOl.issueJDENTIFIER = est_max_effort.issue_IDENTIFIER 

AND r 10 l.prior_source JDENTIFIER = est_max_effort.prior_source JDENTIFIER 

- other stuff 

and keys.src_cat_name o 'Renewals' 
AND keys.subtotal Jlag = 'true' 
and Newstand_sale_marker = f Y' 
GROUP BY keys.Productjd, 

keys.src_cat_name, 

keys.source_name, 

keysxamp_narne 
INSERT INTO R101_TOPLINE 
Select keys.Product_id as Productjd, 

keys.src_cat_name as src_cat_name, 

keys.sourcejname as source_name, 

keys.camp_name ascampjiame, 

» summary fields 

sum(rlOLgross_subs) AS gross_subs, 

sum(rl01.tot_net_subs) AS tot_net_subs, 

min(keys.camp_date_fr) AS campjiatejr, 

max(keys.budgeted_gross_pct) AS Budgeted _gross_pct, 

max(keys.Budgeted_vol) AS Budgeted_vol, 

sum(newstand_sale) promo_qty 
FROM keys keys, rlOl rlOl, est_max_effort est_max_effort 
WHERE keys.full_promo_key = rl01.r!01_key 
AND keys.product_id = r 1 0 1 .productjd 
-- keys torlOl 

AND rlOLproduct_id = est_max_effort.product_id 

AND rlOl.source JDENTIFIER = est jnaxjjffortsouce JDENTIFIER 

AND rlOl.issueJDENTIFIER « est_max_effort. issue JDENTIFIER 

AND r 101, prior_source JDENTIFIER - est jnax_effort.prior_source JDENTIFIER 
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— other stuff 

and keys.src__cat_name o 'Renewals 1 
AND keys.subtotal_flag = 'true' 
and Newstand_salejmarker = 'Y' 
GROUP BY keys.Productjd, 

keys.srcjratjiame, 

keys.sourcejiame, 

keys.camp_name 

INSERT INTO RlOl JTOPLINE 
Select keys.Productjd as Productjd, 

keys,src_cat__name as src_cat_name, 

keys.sourcejiame as sourcejiame, 

keys.campjiame as camp_name, 

— summary fields 

sum(rl01.gross_subs) AS grossjubs, 
sum(r!01.tot_net_subs) AS tot_net_subs } 
min(keys.camp_date_fr) AS camp_date_fr, 
max(keys.budgeted_gross_pct) AS Budgeted _gross_j)ct, 
max(keys.Budgeted_vol) AS Budgeted_vol, 
0 promo_qty 

FROM keys keys, rlOl rlOl, estjnax_effort est_max_effort 
WHERE keys.fMjpromoJcey = rlOLrlOlJcey 
AND keys.product jd - r 1 0 1 .productjd 

— keystorlOl 

AND rl 01. productjd = est_max_effortproduct_id 

AND rlOl.sourceJDENTIFIER = estjnaxjjffort.souceJDENTIFIER 

AND rl01.issue_IDENTIFIER= est_max_effort.issue_IDENTIFIER 

AND riOLprior_source_IDENTIFIER = est_max_effort.prior_source_IDENTIFIER 

— other stuff 

and keys.src_catjiame o 'Renewals' 
AND keys.subtotal_flag = 'true' 
and Newstand_sale jnarker = *N' 
GROUP BY keys.Productjd, 

keys.src_cat__name, 

keys.sourcejiame, 

keys.campjiame 



INSERT INTO R101_TOPLINE 
Select keys.Productjd as Productjd, 

keys.src_cat_name as src_cat_name, 

keys.sourcejiame as sourcejiame, 

keys.campjiame as camp_name, 

— summary fields 

sum(rlOi.gross_subs) AS gross_subs, 
sum(r 1 0 1 .tot jiet_subs) AS tot jietjubs, 
min(keys.camp_date_fr) AS camp_date__fr, 
max(keys.budgeted__gross jet) AS Budgeted_gross_pct, 
max(keys,Budgeted_voi) AS Budgeted_voi, 
sum(keys.mail_qty_override) promo_qty 

FROM keys keys, r 1 0 1 r 1 0 1 , est jnax_eff ort est jnax_effort 

WHERE keys.Mj>romoJcey - rlO 1 .rlO ljcey 

AND keys,product_id = rl 01. productjd 
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— keys torlOl 

AND rlOl.productJd = est_max_effort.product_id 

AND rlOLsourceJDENTIFIER = est_max_effort.souce__IDENTIFIER 

AND rlOl.issueJDENTIFIER = est_max_effort.issueJDENTIFIER 

AND r 1 0 1 .prior_source_IDENTIFIER = est_max_effort.prior_sourceJDENTIFIER 

- other stuff 

and keys.src_cat_narne o 'Renewals' 
AND keys.subtotal Jlag = 'false' 
and keys.mail_qty_override > 0 
GROUP BY keys.Product Jd, 

keys.src_cat_name, 

keys.source_name, 

keys.camp_name 

INSERT INTO R101_TOPLINE 
Select keys.ProductJd as Product_id, 

keys.src_cat_name as src_cat_name, 

keys.source_name as source_name, 

keysxamp_name as camp__name, 

- summary fields 

sum(rlOLgross_subs) AS gross_subs, 

sum(rl01.tot_net_subs) AS tot_net_subs, 

min(keys.camp_datejr) AS camp_date Jr, 

max(keys,budgetedj*ross_pct) AS Budgeted _gross_pct, 

max(keys,Budgeted_vol) AS Budgeted_vol, 

sum(keys.key_mail_qty) promojqty 
FROM keys keys, rlOl rlOl, est__max_effort est_max_effort 
WHERE keys.full_promo_key = rlOLrlOl Jcey 
AND keys.productjd = r 1 0 1 .product Jd 
-keystorlOl 

AND rlOl.productjd = est_max_effort.product_id 

AND rlOLsourceJDENTIFIER = est_max_effort.souceJDENTIFIER 

AND rlOl.issueJDENTIFIER = est_max_effort. issue JDENTIFIER 

AND rl01.prior_source JDENTIFIER = est jnax_effort.prior_soiirce JDENTIFIER 

-- other stuff 

and keys,src_cat_name o 'Renewals' 
AND keys.subtotal Jlag = 'false' 
and keys.maii_qty_pverride <= 0 
GROUP BY keys.Product Jd, 

keys.src_cat_name, 

keys.source_name, 

keys.camp_name 



Integrated Marketing Technology 9/27/00 3:38 PM 



Page 22 of 142 



IMT Subscription Marketing Reporting System 



Procedure Name: del key 

/****** Object: Stored Procedure dbo.dei_Key Script Date: 1/14/99 3:43:07 PM ******/ 
/****** Object: Stored Procedure dbo.delJCey Script Date: 1/12/99 1 1:05:37 PM ******/ 
CREATE PROCEDURE delJCey 

@full_j)romo_key varchar (25),@product_id numeric(8,2) 

AS 

delete from keys where product_id=@product_id and fuIl_promo_key = @full_promo_key 
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Procedure Name: dolOlflowseldatefix 



AS 
declare 



@product_id numeric(9,2), ~ productjd 

@Promo_Key varchar(25), promo key being inserted 

@reorg_date smalldatetime, - the reorg date from the file that the key comes.frorn 

@import_file_type char(l)-- the type of import file i.e. new business/cds , etc. 

--execute do!01_flow_selDateFix @product_id, @Promo_Key, @reorg__date 

@nPromo_Key varchar(25), promo_key minus the right 6 characters + @maxSeI_Date + 



@ePromo_Key varchar(25), -- existing modified promo key from a prior calculation 
@Key_Length integer, 

@maxSel_Date smalldatetime - max select date if prior same key exists 
select @nPromo_Key = ien(@Promo_Key) -promo_key length 

If(@import_file_type -C) 

BEGIN 

declare cjlow cursor for 

select max(select_date) m, rlOl Jcey from rl01_flow where 
productjd = @product_id and 

rlOiJcey like (substring(@Promo_Key,l ) @nPromo_Key-9) +'UGU%') and 

(len(rl01_key) > 17 OR IMPORTJilejype -C) group by select jlate,rl01_key order by m desc 

print 'searching for key match on C imp file type' 

END 

else 

BEGIN 

declare c_flow cursor for 

select max(select_date) m, rlOlJcey from rl01_flow where 

productjd = ©product jd and rl01_key like (substring(@Promo_Key, 1 ,@nPromo_Key-6) +*%') 
and Ien(rl01_key) < 18 group by select_date,rlOl__key order by m desc 

END 
open c_flow 

fetch c_flow into @maxSel_Date, @ePromo_Key 
-print 'fetch_status- + convert(varchar,@@fetch_status) 
If (@@fetch_status = 0) 
BEGIN 

If (@maxSel_Date > DATEADD(day,-555,getDate())) 
BEGIN 

print convert(varchar, @maxSel_Date) + 'fetch status = match found(O)' 

update rl01_flow set select jiate = @maxSel_Date, rlOlJcey - @ePromo_Key 

where product_id = @product_id and rl01_key=@Promo_Key 

close c_flow 

deallocate c_flow 

return 

END 

ELSE ™ no prior matching keys or select date is null 
BEGIN 

print 'appending date to key' 

select @maxSel_Date = @reorg_date 

update r 10 Inflow set select_date = @maxSel_Date, 

rl01_key = (substring(@Promo_Key,l,@nPromo_Key-6) + CONVERT (varchar, 
@maxSel_Date , 10 1 )+'*') 

where productjd = @product_id and r!01_key=@Promo_Key 
close c flow 
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END 
close c_flow 
deallocate c_flow 
return 



deallocate c_flow 

return 

END 
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Procedure Name: doavai!401keys 



begin --sp 

declare @r401_key varchar(25), @select_date smalidatetime,@bills_mailed numeric(12,2),@product_id 
numeric(8,0), @rull_promo_key varchar(25),@dt_valid_to smalidatetime,@source_identifier 
charCO^keyCountnumericCS^), @import_file_type char(l) 
declare @fulfi!lment_house varchar(50) 

set nocount on 

/*add for product id smarts */ 

declare c_r40 1 cursor for /* r401 recordset - the main/reference one */ 
select r401_key > select_date ? bills_mailed,product_id,source_identifier, import_file_type from 
r401_summary where not exists 
(select * from keys k 

where k.fiiil_prorno_key = r401_summary.r401_key and k.product_id = 
r401_summary.product_id) order by product_id 5 r401_key 
open c_r401 

fetch c_r401 into @r401_key,@select_date,@bills_mailed,@productjd,@source_identifler, 
@import_file_type 

while (@@fetch_status = 0) 
begin 

Insert into avail_keys (full__promo_key --1 

,dt_valid__to -2 
,mail_qty -3 
,product_id —4 
,source_identifier -5 
position 1 —6 
,position2 —7 
,position3 —8 
,position4 -9 
,position5 -10 
,position6 —11 
,position7 —12 
,position8 -13 
,position9 -14 
,positionl0 —15 
,fulfillment_house ) -16 

values 

(@r401_key -1 

,ISNULL(@seIect_date,getDateO) -2 
,@bills_mailed —3 
,@product_id -4 
,@source_identifier -5 
,SUBSTRING(@r40 ljcey, 1,1) ~6 
,SUBSTRING(@r40 l_key,2, 1 ) -7 
,SUBSTRJNG(@r40 l_key,3, 1) "8 
,SUBSTRING(@r40 l_key,4, 1 ) -9 
,SUBSTRING(@r40 l_key,5, 1 ) -10 
,SUBSTRING(@r401Jcey,6,l) -1 1 
,SUBSTRING(@r401_key,7,l) -12 
,SUBSTRING(@r40 1 JceyA 1 ) - 1 3 
,SUBSTRJNG(@r401_key, 9,1) -14 
,SUBSTRING(@r401_key, 10,1) -15 



Integrated Marketing Technology 



9/27/00 3:38 PM 



Page 26 of 142 



IMT Subscription Marketing Reporting System 



, case @import_file_type 

when 'A' then 'CENTROBE' 
when 1 B'then 'CENTROBE' 
when 'C then 'CENTROBE* 
when 'E* then 'CENTROBE* 
when T' then 'CDS' 
when 'G' then 'CDS' 
when 'H' then 'CDS' 
when T then 'PALM COAST 
when T then TALM COAST 
when 'K* then 'PALM COAST' 
else null 

end) 

fetch c_r401 into @r401_key s @select_date,@bills_mailed,@productjd i @source_identifier, 
@import_file_type 
end 

close c_r40 1 
deallocate c_r401 

delete from avaiHceys where exists 
(select * from keys k 

where Lfulljtromojcey - avail_keys.full_promo_key and k,product_id - avail_keys.product_id) 

end — sp 

exec autosetup_wizard 1, -1 —1 to display text (zero suppresses), -1 for all products 
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Procedure Name: dovailkeysbypid 

@PID numeric(9,0) 

AS 

declare @r!01_key varchar(25), @seiect_date smalidatetime,@mail_qty numeric(12,2),@product_id 
numeric(8,0) } @full_promo_key varchar(25),@dt_valid_to smalldatetime,@source_identifier 
char(l),@keyCount numeric(8,0) 
set nocount on 

/*add for product id smarts */ 

declare cjrlOl cursor for /* rlOl recordset - the main/reference one */ 

select distinct rl01_key,se!ect_date,mail_qty,product_id,source_identifier from rlOl where 
productjd - @PID order by product__id 
/*declare c_keys cursor for 

select count(full_promo_key) from keys where product_id=@product_id and fulljpromojcey - 
@rl01Jcey*/ 

open c_rl01 

fetch cjrlOl into @rl01_key ) @select_date,@mail_qty,@product_id,@source_identifier 

delete from availjceys where productjd = @PID /*delete all existing availjceys from avail_keys list*/ 

while (@@fetch_status = 0) 
begin 

Insert into availjceys (fuIl_promo_key,dt_valid_to,mail_qty,product__id ? source_identifier, 
position 1 ,position2,position3,position4,position5,position6, position7, 
position8,position9,positionl0 ) values 

(@r 1 0 1 Jcey,D ATEADIXmonth,20 JSNULU^ 
identifier, 

SUBSTRING(<^101Jcey^O 

SUBSTRJNG(@r 1 0 l_key,4, 1 ),SUBSTRING(@rl 0 1 Jcey,5, 1 ), 
SUBSTRING(<^101_key,6^^ 

isnull(SUBSTRING(@rl01_key,9,l), null), ISNULL(SUBSTRING(@rl01_key,10,l),null) ) 

fetch c_rl01 into @rl01_key,@select_date,@mail_qty,@productjd,@soiircejdentifier 
end 

close c_r!01 
deallocate c_rl01 

delete from avail_keys where exists 
(select * from keys k 

where k.fiill_promo_key = avail Jceys.fulI_promoJcey and k.product_id = avail_keys.product_id) 
print 'Attempting to Execute doAvail40 1 KeysByPID' 
execute doavail401keysbypid @PID 
return 



Integrated Marketing Technology 



9/27/00 3:38 PM 



Page 28 of 142 



IMT Subscription Marketing Reporting System 



Procedure Name: dovail401keysbypid 

@PID numeric(9,0) 
AS 

declare @r401_key varchar(25) J @select_date smalldatetime,@bills_mailed numeric(12,2),@product_id 
numeric(8,0), @full_promo__key varchar(25),@dt_validJo smalldatetime,@source_identifier 
char(l),@keyCount numeric(8,0) 
set nocount on 

/*add for product id smarts */ 

declare c__r40 1 cursor for /* r401 recordset - the main/reference one */ 

select distinct r401_key J select_date,bills_mailed,product_id,source_identifier from r401_summary 
where productjd = @PID order by product_id 

open c_r401 

fetch c_r401 into @r401_key,@select_date,@bills_mailed,@product_id,@source_identifier 

while (@@fetch_status = 0) 
begin 

Insert into avail_keys (full_promo_key,dt_valid_to,mail_qty,productjd,source_identifier, 
positionl,position2,position3,position4 t position5,position6, position7, 
position8,position9 position 10 ) values 

(@r401Jeey,DATEADIX^^ 
ce_identifier, 

SUBSTRING(@r40 l Jcey, l , l ),SUBSTRING(@r40 ljcey,2, l),SUBSTRING(@r40 l_key,3, 1 ), 
SUBSTRING(@r40l_key,4,l),SUBSTRING(@r40i_key,5,l), 

SUBSTRING(@r40 1 Jcey,6, l ),SUBSTRTNG(@r40 l_key,7, l),SUBSTRING(@r40 l Jcey ,8, l ), 
isnull(SUBSTRING(@r40 l_key,9, l), null), IS^aJLL(SUBSTRING(@r40l_ - key,lO,l) J null) ) 

fetch c_r40l into @r40l__key,@select_date,@bills_mailed,@product_id,@source_identifier 
end 

close c_r40 1 
deallocate c_r40l 

delete from availjceys where exists 
(select * from keys k 

where k.fiill_promo_key = avail_keys.full_promo_key and k.product_id = avail_keys.product_id) 

return 
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Procedure Name: dovailkeys 

declare @rl01 Jcey varchar(25), ©fulfillment Jiouse varchar(50), @select_date smalldatetime,@mail_qty 
numeric(12,2),@product_id numeric(8,0), @full_promoJcey varchar(25),@dt_valid_to 
smalidatetime,@source_identifier char(l),@key Count numeric(8,0) 
set nocount on 

/*add for product id smarts */ 

declare c__rl01 cursor for /* rlOl recordset - the main/reference one */ 

select rlO^key^elec^date^ai^qty^roductjd^ourceJdentifier, flilfillment_house from rlOl where not 
exists 

(select * from keys k 

where k.full_promoJcey = rlOl.rlOlJcey and k.product_id = r 101. product jd) order by 
product Jd, rl01_key 
/* declare c_keys cursor for 

select count(fuIl_promo_key) from keys where product_id=@product_id and fuil_promo_key = 

@rl01_key*/ 
open c_r!0I 

fetch c_r!01 into @rl01_key,@select_date,(^ail_qty,@productjd,@source_identifler j 
@fulfiilment_house 

truncate table availjceys /*delete all existing availjceys from avail_keys list*/ 

while (@@fetch_status = 0) 
begin 

-print "inserting into availjceys => " + @r!01 Jcey 

Insert into availjceys (fulljpromo^key^^validjo^aiLqty^product^id^ourceJdentifier, 
positionl } position2,position3,position4,position5,position6 ? position7, 

position8,position9 position 1 0, fulfillment Jiouse ) values 

(@r 101 Jcey JSNULL(@select_da^^^ 
SUBSTRING(<^101JceyJJ 

SUBSTRING(^101_keyAl),SUBSTEUNG(^101_key,5,l), 

SUBSTRING(@r 10 lj«y,6, l),SUBSTRING(@rlO l_kcy,7,l),SUBSTRING(@rl01_key,8,l), 
SUBSTRING(@rl01Jcey,9,l), SUBSTRING(@rl01_key,10,l), ©fulfillment Jiouse) 

fetch c_rl01 into 

@rl 0 l_key,@select_date,@mail_qty,@product_id,@source Jdentifier,@fWillmentJiouse 
end 

close c__r!01 
deallocate c_rl01 

delete from availjceys where exists 
(select * from keys k 

where k.full_promo_key = availJceys.full__promoJcey and k.product_id = avail Jceys.productjd) 

-exec autosetup_wizard 
exec doavail401keys 
return 
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Procedure Name: docampesets 



declare encamp cursor for 

select product Jd,campjiame, e_set_name from campaigns where e_set_name > * * 

declare @product_id decimal(9), @camp_name varchar(250), @e_set_name varchar (50) 
open c_camp 

fetch c_camp into @product_id, @camp_name, @e_set_name 

while (@@fetch_status = 0) 
begin 

/♦UPDATE panels SET e_set_name = @e_set_name WHERE CURRENT OF c_panel*/ 
update keys set e_set_name=@e_set_name where product jd = @product_id and camp_name = 
@camp__name and (keys.e_set_name < " or keys.e_set_name is null) 

fetch c_camp into @product_id, @camp_name, @e_set_name 
end 

close c_camp 
deallocate c_camp 



return 
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Procedure Name: docamprsets 

declare c_campr cursor for 

select productjd,camp_name, r_set_name from campaigns where r_set_name > ' ' 

declare @product_id decimal(9), @camp_name varchar(250), @r_set_name varchar (50) 
open c_campr 

fetch c_campr into @product_id, @camp_name, @r_set_name 

while (@@fetch_status = 0) 
begin 

/♦UPDATE panels SET e_set_name - @e_set_name WHERE CURRENT OF c_panel*/ 
update keys set r_set_name= =: @r_set_name where product_id = @product_id and camp_name = 
@camp_name and (keys.r_set_name < * 1 or keys.rjetjiame is null) 

fetch cjrampr into @product_id, @camp_name, @r_set_name 
end 

close c_campr 
deallocate c_campr 

return 
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Procedure Name: doestmaxeffort 



begin 

truncate table est_max_EFFORT 
INSERT INTO est_max_EFFORT 
select estjnaxl.product_jd, 

est_maxl .source_identifier, 

estjmax 1 .issue_identifier, 

estjnax 1 .prio^sourcejdentifier, 

min(est_max 1 .effort_identifier), 

min(est_max 1 .sum_mail_qty) 
FROM v_est_maxl estjnax 1, v_est_max2 est_max2 
WHERE est_maxl.sum_mail_qty = estjmax2.est_max 
and estjnax 1 .sourcejdentifier = est_max2.source_jdentifier 
and est_maxl .issue_identifier=est_rnax2.issue_identifier 
and estjnax 1 ,prior_source_identifier = est jnax2.prior_source_identifier 
GROUP by estjnax l.productjd, 

estjnax 1 .source_identifier } 

est_max I . issue jdentifier, 

estjnax 1 .prior_source jdentifier 
end 

return 



Integrated Marketing Technology 



9/27/00 3:38 PM 



Page 33 of 142 



IMT Subscription Marketing Reporting System 



CREATE PROCEDURE doMW AS 

declare @product_id numeric(8 } 0), @stat_name varchar(50) 

/* */ 

declare c_ cursor for 

select product_Jd from corp_info 
declare c_work cursor for 

select r__set_name from revenue_sets where product_id = @product_id and r_set_name = 
'Undefined* 
open c_ 

fetch c_ into @product_id 



delete from revenue_sets where r_set_name = 'Undefined' 
delete from revenue_sets where r_set_name = 'UNDEFINED' 

while (@@fetch_status = 0) 
begin 

open c_work 

fetch c_work into @stat_name 

If (@@fetch_status o 0) 
begin 

Insert into revenue_sets (product_id, r_set_name) values ((SiproducMd/Undefined') 

close c_work 

end 

else 

begin 

close c_work 
end 

fetch c_ into @product_id 
end 

close c_ 
deallocate c_ 
deallocate c_work 

update campaigns set r_set_name = 'Undefined' where r_set_name is null 
update campaigns set r_set_name - 'Undefined' where r_set_name = " 
update panels set r_set_name - 'Undefined' where r_set_name is null 
update panels set r_set_name = 'Undefined' where r_set_name = " 
update keys set r_set_name = 'Undefined' where r_set_name is null 
update keys set rjsetjiame = 'Undefined' where r_set_name = " 
return 
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Procedure Name: doPanelESets 



declare c_panei cursor for 

select product_id,panei_name, e_set_name from panels where e_set_name > r 1 

declare @product_id decimal(9), @panel_name varchar(250), @e_set_name varchar (50) 
open c_panei 

fetch cjpanel into @product_id, @panel_name, @e_set_name 

while (@@fetch_status = 0) 
begin 

/♦UPDATE panels SET e_set_name = @e_set_name WHERE CURRENT OF c_panel*/ 
update keys set e_set_name=@e_set_name where product_id — @product_id and panel_name = 
@panel_name and (keys.e_set_name < * ' or keys.e_set_name is null) 

fetch c_panel into @product_id, @panel_name, @e_set_name 
end 

close c_panel 
deallocate c_panel 

return 
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Procedure Name: doPanelRSets 



declare c_panelr cursor for 

select product_id,panel_name, r_set_name from panels where r_set_name > ' ' 

declare @product_id decimal(9), @panel_name varchar(250), @rj>et_name varchar (50) 
open c_panelr 

fetch cjanelr into @product_id, @panei_narne, @r_set_name 

while (@@fetch_status = 0) 
begin 

/♦UPDATE panels SET e_set_name - @e_set_name WHERE CURRENT OF c_panel*/ 
update keys set r_set_name=@r_set_name where productjd = ©product Jd and panel_name = 
@panei_name and (keys.r_set_name < ' ' or keys.r_set_name is null) 

fetch c _panelr into @product jd, @panel_name, @r_set_name 
end 

close c_panelr 
deallocate c_panelr 

return 
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Procedure Name: doProdSetup 



/****** Object: Stored Procedure dbo.doProdSetup Script Date: 1/14/99 3:43:07 PM ******/ 

/****** Object: Stored Procedure dbo.doProdSetup Script Date: 1/12/99 1 1 :05:37 PM ******/ 

/****** Object: Stored Procedure dbo.doProdSetup Script Date: 1 1/28/98 2:3 1 : 13 PM ******/ 

/****** Object: Stored Procedure dbo.doProdSetup Script Date: 1 1/17/98 2:43:36 PM ******/ 

declare @product_id numeric(8,0), @grp_name varchar(50), @title_name varchar(50), @src_prod_id 

numeric(8,0) 

/* */ 

declare c_corp_info cursor for 

select product_id,grp_name J title_name from corp_info 
declare c_src__category cursor for 

select productjd from src_category where product Jd = @product_id 
open c_corp_info 

fetch c_corp_info into @product_id,@grp_name,@title_name 
/♦if (@@fetch_status o 0) 

begin 

end*/ 

while (@@fetch_status = 0) 
begin 

open c_src_category 

fetch c_src_category into @src_prod_id 

If (@@fetch_status o 0) 

begin 

Insert into src_category (productjd^rc^ca^name^^ca^desc^grp^ame^itle^name) 
values (@productjd;AgentsV , ,@grp_name,@titIe_name) 

Insert into src_category (product_id,src_cat_name 5 src_cat_descr,grp_name,title_name) 
values (@productjd/Renewa!sVR mings^@grp jiame,@title_name) 

Insert into src_category (produc^id^rc^a^name^rc^at^descr^rp^ame^itle^ame) 
values (©product Jd/Billing'^^grp.name^title^name) 

Insert into src_category (product_id,src_cat_name,src_cat_descr,grp_name,titie_name) 
values (@product Jd,T>TP^@grp_name,@title_name) 

Insert into src_category (productjd^rc^a^name^rc^a^desc^grp^ame^itle^ame) 
values (@product jd;Gifts^@grp - name,@ttele t _name) 

Insert into src_category (productJd^rc^a^namejSrc^cat^desc^grp^ame^itle^ame) 
values (©product ^Renewal^lggrpjiame^itlejiame) 

Insert into subcategory (product jd^rc^a^name^rc^cat^desc^grPbname.titlebname) 

values (©product Jd,U^ASSIGNTO^^ 
Insert into source 

(product bidjSrc^atbname^ourcebname^rc^dicato^grPbnamejtitlebname) values 
(©product jd/RenewaIs\TlenewalsSRC, , R , ,@grp_name ) @title_name) 

close c_src_category 

end 

else 

begin 

close c_src_category 
end 

fetch c_corp_info into @product_id,@grp_name,@titIe_name 
end 

close c_corp_info 
deallocate c_corp_info 
deallocate c_src_category 
return 
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Procedure Name: doRlOlsummary 



begin 

truncate table rlOl 

-update rl01_flow set select_date = getDateO where selectjdate < '1901-01-01' 
/* 

update rlOMlow set select_date = getDateO where not exists 
(select * from rl01_flow r 

where r.rlOlJcey = rl01_flow.rl01_key and r.productjd = rl01_flow,product_jd and select_date 
> , 1990-01-01') 
*/ 

Insert into rlOl 

(rl01__reorg_date, 

productjd, 

rlOlJcey, 

source_identifier s 

issue_identifier, 

prior_source_identifier, 

effort_identifier, 

mail_qty, 

select_date, 

key_descr, 

subs_this_week, 

subs_to_date, 

gross_subs, 

gross_subs_pct, 

net_subs, 

net_subs_pct, 

tot_net_subs, 

tot_net_subs_pct, 

pct_credit, 

pct_cred_renew, 

cred_pay_amt, 

credjpay_pct, 

avg_net_trm, 

avg_net_trm_value, 

avg_tot_net_trm, 

avg_tot_net_trm_value, 

subs_phone, 

subs_c_card, 

install_lst, 

install_lst_total, 

subs_gift, 

subs_giftjpct__l st_trm, 

sub__years_gross, 

sub_years_gross_tot_net, 

gross_sub_revenue, 

net_sub_revenue, 

gross_sub_copies, 

net_sub_copies, 

cash_subs ? 
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est_max_efT_mail_qty, 

gross_cred_subs, 

net_cred_subs, 

fuifillment_title_name, 

gross_list_rental_qty, 

net_list_rental_qty, 

package_identifier, 

key__descr2, 

donees_todate, 

total_orders, 

tot_order_pct_rspnce, 

renew_subs_pct 

, fulfillment Jiouse) 

EXECUTE( w seIect rl01_reorg_date, 
productjd, 
rlOlJcey, 
source_identifier, 
issue_identifier, 
prior_source_identifier } 
effort_identifier, 
mail_qty, 
select_date, 
key_descr, 
subs_this_week, 
subs_to_date, 
gross_subs, 
gross_subs_pct, 
net_subs, 
net_subs__pct, 
tot_net_subs, 
tot_net_subs_pct, 
pct_credit, 
pct_cred_renew, 
cred_pay_amt, 
cred_pay_pct, 
avg_net_trm, 
avg_net_trm_value, 
avg_tot_net_trm, 
avgJot_net_trm_value, 
subs_phone, 
subs_c_card, 
instalMst, 
install_lst_total, 
subs_gift, 

subs__gift_pct_l st_trm, 

sub_years_gross, 

sub_yearsj£ross_totjiet, 

gross_sub_revenue, 

net_sub_revenue, 

gross_sub_copies, 

net_sub_copies, 

cash_subs, 

est_max_eff_mail_qty, 
gross_cred_subs, 
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end 



net_cred_subs, 

fulfillment_title_name, 

gross_list__rental_qty, 

net_iist_rental_qty, 

package_identifier, 

key_descr2, 

donees_todate, 

total_orders, 

tot_order_jpct_rspnce, 

renew_subs_pct 

, isnull(case import_file__type 

when 'A 1 then 'CENTROBE' 
when 'B' then 'CENTROBE' 
when 'C then 'CENTROBE' 
when then 'CENTROBE' 
when 'F' then 'CDS* 
when XT then 'CDS* 
when 'H' then 'CDS* 
when T then 'PALM COAST 
when 'J' then TALM COAST 
when 1 K* then 'PALM COAST 
else null 

end 

9 fulfillmentJiouse) 
from vrlOl_flow_max_dates, rlOlJIow 
where mproduct_id = product_id and 
mrl01_key=rl0l_key and mdate=rl01_reorg_date 
order by mproductjd, mrlOlJcey, rlOl_reorg u _date M ) 



Integrated Marketing Technology 



9/27/00 3:38 PM 



IMT Subscription Marketing Reporting System 



Procedure Name: doR401_summary 



truncate table r401__summary 



update r401_flow set select_date = getDate() where not exists 
(select * from r401_flow r 

where r.r401Jcey = r401_flow.r401Jcey and r.productjd = r401_flow.product_jd and select_date 
> '1990-01-01*) 

Insert into r401_sumrnary 
(r401_reorg_date, 
productjd, 
r401_key, 
source_identifler, 
creditjperiod_identifier, 
current_source_identifier, 
effort_identifIer, 
select_date, 
bills_mailed, 
biHs_maiied_amt, 
this_week_pmt, 
total_pmt, 
pmt_pct, 
step_up, 
step_up_pct, 
pmt_plus_step_up_rev, 
avg_rev_per_pmt, 
avg_term_per_pmt, 
request_cancel, 
request_cancel_pct, 
per_cancel, 
per_cancel_pct, 
pmt_on_pmt, 
pmt_after__cancel, 
total_copies, 
fulfillment_title_name, 
est_max_eff_rnail_qty 
, import_file_type) 
EXECUTEC 

SELECT distinct r401_reorg_date, 

productjd, 

r401_key, 

source_identifier, 

creditjperiodjdentifier, 

current_source_identifier, 

effort_identifier, 

select_date, 

bills_mailed, 

bills_mailed_amt, 

this_week_pmt 7 

totaljpmt, 

pmt_pct, 

step_up, 
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step_up_pct, 

pmtjplus_step_up_rev, 

avg_rev_perj)mt, 

avg_term_per_pmt, 

request_cancel, 

request_cancel_pct, 

per_cancel, 

per_cancel_pct, 

pmt_onjpmt, 

pmt_after_cancel, 

total_copies, 

fulfillment_title_name, 

est_max__erY_mail_qty 

, import_file_type 

from vr40 l_flow_max_dates, r401_flow where mproduct_id = product_id and 
mr401_key=r401_key and mdate=r401_reorg_date order by productjd, r401_key, r401_reorg_date 
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Procedure Name: doRecycleKey 



@product_id_r numeric(8,2), 
@promo_key_r varchar (25) 
AS 

declare @rl01 Jcey varchar(25), 

@select_date smalldatetime, 
@mail_qty numeric(12,2X 
@product_id numeric(8,0) J 
@full_promoJcey varchar(25), 
@dt_valid_to smalldatetime, 
©source Jdentifier char(l), 
@keyCount numeric(8,0), 
@src_cat_name VARCHAR(50), 
@r40l_key varchar(25), 
@bills_mailed numeric(9), 
©fulfillment Jiouse varchar{50), 
@import_fiie_type varchar(50) 

select @src_cat_name = src_cat_name 

from keys where fiill_j>romo Jcey - @promo Jceyj: 

and product_id = @product_id j- 

if @src_cat_name = 'Billing' 
BEGIN 

print @src_cat_name 

declare c_r40l cursor for /* r40i recordset - the main/reference one */ 
select r401_key,select_datft,bills_maiied,product_id ? source_identifier, import Jilejype from 

r401_summary 
where r40 I Jcey - @promo Jcey_r 
and productjd ~ @product_id_r 

open c_r40 1 

fetch c_r401 into @r401_key,@select_date T @bills_mailed,@product_id,@source_identifier > 
@import Jilejype 

while (@@fetch_status = 0) 
begin 

Insert into availjceys (fullj)romo_key ) dt - valid_to,mail_qty,productjd,sourcejdentifier ) 
position 1 ) position2,position3 ? position4,position5,position6, position7, 
position8,position9,positionl0, fulfillment Jiouse ) values 

(@r40 1 Jcey JSNULLCQselec^date^etDateOJ^bills^ailed^product _id,@source__identifier, 
SUBSTRING(@r40 1 Jcey, 1 , l),SUBSTRING(@r40 1 JeeyA 1 ),SUBSTRING(@r40 1 Jcey, 3 , 1 ), 
SUBSTRINGC^OLkey^Ji^SUBSTRJNGC^O^key^,!), 
SUBSTRING(@r40IJcey,6,l),SUBST^ 

isnulKSUBSTRINGC^Ol^key^J), null), 
ISNULL(SUBSTRING(@r40 1 Jcey, 1 0, i),null) 

, case @import Jilejype 

when 'A' then 'CENTROBE 1 
when 'B' then 'CENTROBE' 
when »e then 'CENTROBE' 
when 'E* then 'CENTROBE' 
when 'F then 'CDS* 
when 'G f then 'CDS' 
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when 'H' then 'CDS* 

when T then 'PALM COAST' 

when 'J' then TALM COAST 

when 'K* then 'PALM COAST 

end) 

fetch c_r401 into @r401_key,@select_date,@bills_maUed,@productJd,@sourceJ^ 
@import_file_type 
end 

close cj-401 
deallocate c_r401 

-delete from avail_keys where exists 
-(select * from keys k 

-where k.full_promo_key = availjceys.fuli jromo Jcey and k.product_id = 
avail_keys.product_id) 
return 
END 

ELSE 

BEGIN 
print 1 101 stuff 
set nocount on 

/♦add for product id smarts */ 

declare c_rl01_r cursor for /* rlOl recordset - the main/reference one */ 

select rl01_key t select__date,mail_qty,product_id,source_identifier, falfilimentjiouse fromrlOl where 
product_id = @product_id_r and rlOl Jcey = @promo_key_r 
open c_rl01_r 

fetch c_rl01_r into @rl*01 Jcey,@selectjiate,^ 
@import_fileJype 
while (@@fetch_status = 0) 
begin 

Insert into availjkeys 
(full jromoJcey,dt_validJo,m^ 
position5,position6, position7, fulfil lment_house) 

values 

(@rl01JceyJSNULL(<§M^ 
(^101J«y^l),SUBSTRIN^ 

,4,l),SUBSTRING(@rl01 - key,5 ) l),SUBSTRING(@rI01_key,6 



, 1 ),SUB STRING(@r 1 0 l_key,7, 1 ) 
, @import_file_type) 

fetch c_rl01_r into (^101 Jcey,@selectjiate,(^^ 
@import_file__type 
end 

close c_rl01_r 
deallocate cjlOlj* 
return 
END 
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Procedure Name: doRecyclePanelKey 



@rec_id numeric(8,2) 
AS 

/* get primary key info */ 

declare @camp_name varchar(250) ) 

@source_name varchar(50), 

@panel_name Varchar(250), 

@src_cat_name Varchar(30), 

@product_Jd numeric(5), 

@keys_product__id numeric(5), 

@full_promo_key numeric(5) 

SELECT @camp_name = camp_name, 

@source_name = source_name, 

@panel_name = panel_name, 

@src_cat_name = src_cat_name, 

@product_id - produced 
FROM panels 
WHERE recjd = @rec_id 

declare cjceys cursor for 

select full_promo_key } productjd 

from keys 

where product_id = @product_id 
and camp_name - @camp_name 
and source_name = @source_name 
and panel_name = @panel__name 
and src_cat_name - @src_cat_name 

open c_keys 

fetch cjceys into @fulljpromo_key ) @keys_product_id 

while (@@fetch_status - 0) 
begin 

exec doRecycleKey @keys_product_id, @full_promo_key 

fetch c_keys into @full _promo_key,@keys_product_id 

end 

close c_keys 
deallocate c_keys 
delete from keys 

where product_id - @product_id 
and camp_name = @camp_name 
and source_name = @source_name 
and panel__name - @panel_name 
and src_cat_name = @src_cat_name 

return 
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Procedure Name: doSourcelnds 



/** creates a srcjndicator placeholder from 101 flow ***/ 
declare @var_src_ind char(l), @var_targetjnd char(l) 
declare cj*101_ind cursor for 

select distinct source_identifier from rlOl 
declare c_source cursor for 

select src_indicator from source where src_indicator = @var_src_ind 
open c_rl01_ind 

fetch cjlOMnd into @var_srcjnd 
if (@@feteh_status o 0) 
begin 

print "No Source Indicators found in r 101" 

close c_r!01_ind 

deallocate c_r!01_ind 

return 

end 

while (@@fetch_status = 0) 
begin 

open c source 

fetch c_source into @var_target_ind 
If (@@fetch_status o 0) 
begin 

Insert into source (src_cat_name,src_indicator,source_name) values 
CUNASSIGNED'^va^src^ind/MISSING*) 
close c_source 
end 
else 
begin 

close c_source 
end 

fetch c_r!01_ind into @var_src_ind 
end 

close c_rl01_ind 
deallocate c_r!0 Mnd 
return 



Integrated Marketing Technology 



9/27/00 3:38 PM 



Page 47 of 142 



IMT Subscription Marketing Reporting System 



Procedure Name: doSummary 



BEGIN - only for Palm Coast titles at Primedia 

update r401_ffow set selectjiate = r401_reorg_date where select_date - '1900-01- 
END 

BEGIN 

PRINT 'Executing dor 10 ^summary' 
end 

BEGIN 

execute dorlOljsiimmary; 

PRINT 'Execution of dorl01_summary complete' 

END 

BEGIN 

PRINT 'Executing dor401_summary' 
END 

BEGIN 

execute dor40 l_summary; 

PRINT 'Execution of dor401_summary complete' 

END 



BEGIN 

PRINT 'Executing doavailkeys' 
END 

BEGIN 

execute doavailkeys; 

PRINT 'Execution of doavailkeys complete' 
END 



BEGIN 

PRINT 'Executing doavaiWOl keys' 
END 

doavaiWOl keys runs when doavailkeys runs ! 

-BEGIN 

-execute doavaiWOl keys; 

-PRINT 'Execution of doavaiWOl keys complete' 

-END 

BEGIN 

execute doEstMaxEffort ; 

PRINT 'Execution of doavaiWOl keys complete' 

END 

Begin 

Insert into summary Jog values(GetDateO, 'Summary Procedure Run') 
Print 'Updated summary log' 
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Procedure Name: getCorpInfo 



/****** Object: Stored Procedure dbo.getCorpInfo Script Date: 1/14/99 3:43:06 PM ******/ 
/****** Object: Stored Procedure dbo.getCorpInfo Script Date: 1/12/99 1 1:05:37 PM ******/ 

( 

@productJd numeric(8,0) 
) 

AS 

select * from corp_info where product Jd = @product_id 
return 
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Procedure Name: expenses 

/****** Object: Stored Procedure dbo.expenses Script Date: 1/14/99 3:43:07 PM ******/ 

/****** 0b j ect: stored Procedure dbo.expenses Script Date: 1/12/99 1 1:05:38 PM ******/ 

/****** Object: Stored Procedure dbo.expenses Script Date: 1 1/28/98 2:31:13 PM ******/ 

/****** object: Stored Procedure dbo.expenses Script Date: 1 1/17/98 2:43:36 PM ******/ 

/****** Object: Stored Procedure dbo.expenses Script Date: 10/19/98 6:03:58 PM ******/ 

declare @e_set_name varchar (50),@product_id numeric(8,2), 

@print_cost numeric(l 1, 3),@print_cpm_cpu varchar (10), 
@print_basis varchar (20), 

@ltr_cost numeric(l 1, 3),@ltr_cpmj:pu varchar (10), 
@ltr_basis varchar (20), 

@postage_out_cost numeric(l 1, 3),@postage_out_cpm_cpu varchar (10), 
@postage_out_basis varchar (20), 

@postage_in_cost numeric(l 1 , 3),@postage_in_cpm_cpu varchar (10), 
@postage_in_basis varchar (20), 

@premium_cost numeric(l 1, 3),@premium_cpm_cpu varchar (10), 
@premiurn_basis varchar (20), 

@badpay_cost numeric(l 1, 3),@badpay_cpm_cpu varchar (10), 
@badpay_basis varchar (20), 

@billing_cost numeric(l 1, 3),@billing - cpm_cpu varchar (10), 
@billing_basis varchar (20), 

@subs_svc_costs numeric(l 1, 3),@subs_svc_cpm_cpu varchar (10), 
@subs_svc_basis varchar (20), 

@exp_flxed_costs numeric(l 1, 3),@exp_fixed_cpm_cpu varchar (10), 
@exp_fixed_basis varchar (20), 

@exp_other_costs numerical 1, 3),@exp_other_cpm_cpu varchar (10), 
@exp_other_basis varchar (20), 

@full_promo_key varchar (10), 
@Ievell_expense numeric(12,3), 
@leve!2_expense numeric(12,3), 
@level3_expense numeric(12,3), 
@rl01_key varchar(lO), 
@mail_qty numeric(12,2), 
@gross_subs numeric(7,2), 
@net_subs integer, 

@ll_tmp numeric (12,3), 

@ll_value numeric (12,3), 

@l2__tmp numeric (12,3), 

@12__value numeric (12,3), 

@13_tmp numeric (12,3), 

@13_value numeric (12,3) 
declare c_exp cursor for 

select expense_sets.e_set_name, expense_sets.product_id, 

print_cost,print_cpm_cpu,print_basis, 

ltr_cost,ltr_cpm_cpu,ltr_basis, 

/^deleted list_cost,cpm and basis because of redesign-list library activities., moved to key, still 

need to add code for calculating */ 

postage_out_cost,postage_out_cpm_cpu,postage_out_basis, 

postage_in__cost,postage_in_cpm_cpu,postage_in_basis, 

premium_cost,premium_cpm_cpu,premium_basis, 
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badpay_cost,badpay__cpm_cpu,badpay_basis 5 

billmg_cost,biIling_cpm_cpu,billing_basis, 

subs_svc_costs,subs_svc_cpm_cpu,subs_svc_basis, 

exp_fixed__costs,exp_fixed_cpm_cpu,exp_fixed_basis } 

exp^the^costSjexp^ther^cpm^pi^exp^the^basis, 

fuIl_promo_key, 

level l_revenue, 

level2_revenue, 

level3_revenue, 

rlOlJcey, 

mail_qty, 

gross_subs, 

net_subs 

from expense_sets,keys,rl01 where keys-productjd=expense_sets.product_id and 
keys.product_id==rl01.product_id and 

keys.e_set_name - expense_sets.e_set_name and keys.fulljpromojcey = r!0Lrl01_key 

Order by expense_sets.e_set_name 
open c_exp 
fetch c_exp into 

@e_set_name,@product_id, 

@print_cost,@print_cpm_cpu, 

@print_basis, 

@ltr_cost,@ltr_cpm_cpu, 

@itr_basis, 

@postage_out_cost,@postage_out_cpm_cpu, 
@postage_out_basis, 

@postage_in_cost,@postage_in_cpm_cpu, 

@postage_in_basis, 

@premium_cost,@premium_cpm_cpu, 

@premium_basis, 

@badpay_cost,@badpay_cpm__cpu, 

@badpay_basis, 

@billing_cost,@billing_cpm_cpu, 
@billing_basis, 

@subs_svc_costs,@subs__svc_cpm_cpu, 
@subs_svc_basis, 

@exp_fixed_costs,@exp_fixed_cpm_cpu, 
@exp_fixed_basis, 

@exp_other_costs,@exp_other_cpm_cpu, 
@exp_other_basis, 

@full_promo_key, 

@levell_expense, 

@level2_expense, 

@level3_expense, 

@rl01_key, 

@mail_qty, 

@gross_subs, 
@net_subs 
while (@@fetch_status = 0) 
begin 

select @ll_tmp = 0 
select @ll_value = 0 

select @12jmp = 0 a 
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select @12_value = 0 
select @13_tmp = 0 
select @13_value = 0 

y*****************************LEVEL i***********^***********************************/ 
If (@print_basis = 'Mail Qty') 
begin 

select @11 Jmp = (@mail_qty * @print_cost) 
end 

else if (@print_basis = 'Gross Subs') 
begin 

select @11 Jmp = (@gross_subs * @print_cost) 
end 

else if (@print_basis = "Net Subs') 
begin 

select @I1 Jmp = (@net_subs * @print_cost) 
end 

if (@print_cpm_cpu = 'CPM') 
begin 

select @ll_tmp - @ll_tmp / 1000 
end 

select @ll_value= @ll_value + @11 Jmp 

select @ll_tmp = 0 
If (@ltr_basis = 'Mail Qty 1 ) 
begin 

select @11 Jmp = (@mail_qty * @ltr_cost) 
end 

else if (@ltr_basis = 'Gross Subs') 
begin 

select @ll_tmp ~ (@gross_subs * @ltr_cost) 
end 

else if (@ltr_basis = T^et Subs') 
begin 

select @11 Jmp = (@net_subs * @ltr_cost) 
end 

if (@itr_cpm_cpu - 'CPM') 
begin 

select @11 Jmp = @ll_tmp / 1000 
end 

select @U_value= @ll_value + @ll_tmp 

select @\\Jmp~Q 
If (@postage_out_basis = 'Mail Qty') 
begin 

select @ll_tmp = (@maii_qty * @postage_out_cost) 
end 

else if (@postage_out_basis = 'Gross Subs') 
begin 

select @11 Jmp = (@gross_subs * @postage_out_cost) 
end 

else if (@postage_out_basis = 'Net Subs') 
begin 

select @ll_tmp = (@net_subs * @postage_out_cost) 
end 

if (@postage_put_cpm_cpu = 'CPM') 
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begin 

select @ll_tmp = @ll_tmp / 1000 
end 

select @ll_value= @ll_value + @ll_tmp 

^*****************************L£VEL 1 ***********************************************/ 
^*****************************LEVEL 2***********************************************/ 

If (@postage_in_basis = 'Mail Qty') 
begin 

select @12_tmp = (@mail_qty * @postage_in_cost) 
end 

else if (@postage_in_basis = 'Gross Subs') 
begin 

select @12_tmp = (@gross_subs * @postage_in_cost) 
end 

else if (@postage_in_basis = 'Net Subs') 
begin 

select @12_tmp = (@net_subs * ©postage _in_cost) 
end 

if (@postage_in_cpm_cpu ~ 'CPM') 
begin 

select @12_tmp = @12_tmp / 1000 
end 

select @12_value= @12_value + @12_tmp 

select @12_tmp = 0 

If (@premium_basis = 'Mail Qty 1 ) 



begin 






select @12_tmp 


= (@mail_qty * @premium_ 


_cost) 


end 






else if (@premium_basis 


= 'Gross Subs') 




begin 






select @I2_tmp 


- (@gross_subs * @premium_cost) 


end 






else if (@prernium_basis 


-■Net Subs') 




begin 






select @12_tmp 


= (@net_subs * @premium_ 


_cost) 


end 






if (@premium_cpm_cpu 


= 'CPM') 




begin 






select @12_tmp 


= @12_tmp/ 1000 




end 







select @12_value= @12_value + @12_tmp 
select @12_tmp = 0 

If (@badpay__basis = 'Gross - Net Subs') 
begin 

select @12_tmp = ((@gross_subs - @net_subs) * @badpay_cost) 
end 

if (@badpay_cpm_cpu = 'CPM') 
begin 

select @12_tmp = @12_tmp / 1000 
end ' 

select @12_value= @12_vatue + @12_tmp 
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select @12_tmp = 0 
If (@billing_basis - Mail Qty*) 
begin 

select @12_tmp = (@mail_qty * @billing_cost) 
end 

else if (@billing_basis - 'Gross Subs*) 
begin 

select @12jtmp = (@gross_subs * @billing_cost) 
end 

else if (@billing_basis = Net Subs') 
begin 

select @12_tmp = (@net_subs * @billing_cost) 
end 

if (@billing__cpm_cpu - 'CPM') 
begin 

select @12_tmp = @12_tmp / 1000 
end 

select @12 value= @L2_value + @12_tmp 
If (@subs_svc_basis = 'Mail Qty*) 



begin 


= (@mail_qty * @subs_svc_costs) 


select @13_tmp 


end 




else if (@subs_svc_basis 


= 'Gross Subs') 


begin 




select @13_tmp 


= (@gross_subs * @subs_svc_costs) 


end 




else if (@subs_svc_basis 


= 'Net Subs') 


begin 


= (@net_subs * @subs_svc_costs) 


select @13_tmp 


end 




if (@subs_svc_cpm_cpu 


= *CPM') 


begin 




select @13 Jmp 


= @13_tmp/ 1000 


end 





select @13_value= @13_value + @13_tmp 

select @13_tmp = 0 
If (@exp_fixedj)asis = 'Mail Qty') 
begin 

select @13_tmp = (@mail_qty * @exp_fixed_costs) 
end 

else if (@exp_fixed_basis = 'Gross Subs') 
begin 

select @13_tmp = (@gross_subs * @exp_fixed_costs) 
end 

else if (@exp_fixed_basis = Net Subs 1 ) 
begin 

select @13_tmp = (@net_subs * @exp_fixed_costs) 
end 

if (@exp_fixed_cpm_cpu = 'CPM') 
begin 

select @13_tmp = @13_tmp / 1000 
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end 

select @13_value= @13_value + @13_tmp 
select @13_tmp = 0 
If (@exp_other_basis = Mail Qty') 
begin 

select @13_tmp = (@mail_qty * @expj>thercosts) 
end 

else if (@exp_other_basis = 'Gross Subs') 
begin 

select @B_tmp = (@gross_subs * @exp_pther_costs) 
end 

else if (@exp_other_basis = 'Net Subs') 
begin 

select @13_tmp = (@net_subs * @exp_other_costs) 
end 

if (@exp_other_cpm_cpu = 'CPM') 
begin 

select @13_tmp = @13_tmp / 1000 
end 

select @13 value- @13 value + @13jmp 

UPDATE keys SET level l_expense = @1 l_value,level2_expense = @12_value,level3_expense : 
@13_value WHERE CURRENT OF c_exp 
fetch c_exp into 

@e_setjiame,@product_id, 
. @print_cost ) @print_cpm - cpu, 

@print__basis, 

@ltr_cost,@ltr_cpm_cpu, 

@ltr__basis, 

@postage - out_cost,@postage_out_cpm_cpu, 
@postage_out_basis, 

@postage_in_cost,@postage_in_cprn_cpu, 

@postage_in_basis, 

@premium_cost,@premium_cpm_cpu, 

(gpremiurnjjasis, 
@badpay_cost,@badpay_cpm_cpu, 

@badpay_basis } 

@billing_cost,@billing__cpm_cpu, 
@billing_basis, 

@subs_svc__costs,@subs_svc_cpm_cpu, 
@subs_svc_basis, 

@exp_fixed_costs,@exp__fixed_cpm_cpu, 
@exp_fixed_basis, 

©exp^other^costs^exp^the^cpm^pu, 
@exp_other_basis, 

@fiill_promoJkey > 

@levell_expense, 

@level2_expense, 

@level3_expense, 

@rl01Jcey, 

@mail_qty, 

@gross_subs, 

@net_subs 

end 
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close c_exp 
deallocate c__exp 
return 
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Procedure Name: maxBillEffort 



update r401_flow set est_max_eff_mai I_qty = bills_mailed where effort_identifier = T 
update r401__summary set est_max_eff_mail_qty =bills_mailed where effort_identifier = T 
update r40I_flow set est_max_eff_mail_qty = 0 where est_max_eff_mail_qty is null 
update r401_summary set est_max_eff_mail_qty = 0 where est_max_eff_mail_qty is null 
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Procedure Name: maxEffort 



update rl01_flow set est_max_eff_mai I_qty = mailjqty where effort_identifier = 1 
update rlOl set est_max_eff_mail_qty = mail_qty where effort Jdentifier = 1 
update rl01_flow set est_max_eff_maii_qty = 0 where est_max_eff_mail_qty is null 
update rlOl set est_max_eff_mail_qty = 0 where estjnax_eff_mail_qty is null 
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Procedure Name: maxGiftEffort 



update r301_flow set est jriax_eff_mai l_qty = mailjty where effortjdentifier = T 
update r301_summary set est_max_eff_mail_qty = mail_qty where effort_identifier = T 
update r301_flow set est_max_eff_mail__qty = 0 where est_max_eff_mail_qty is null 
update r301_summary set est_max_eff_mail_qty = 0 where est_max_eff_mail_qty is null 
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Procedure Name: procedure Rebuild_Rpt_Cats 



begin 

UPDATES IMAGINE REPORTS 
truncate table imagine.dbo.rpt_cats 
insert into imagine. dbo,rpt_cats 

select src_cat_name, src_sub_cat, location, rptjiame, rpt_description, rpt_filters from 
pmedia.dbo.rpt_cats 
BEGIN 

PRINT 'IMAGINE Report Catolog Updated' 
END 

- UPDATES IMT PRESENTATION REPORTS 
truncate table IMTPresentation.dbo.rpt_cats 
insert into IMTPresentation.dbo.rpt_cats 

select src_cat_name, src_sub_cat, location, rpt_name, rpt_description, rpt_filters from 
pmedia.dbo.rpt__cats 
BEGIN 

PRINT 'IMT Presentation Report Catolog Updated' 
END 

- UPDATES DWELL REPORTS 
truncate table dwell.dbo jpt_cats 
insert into dwell.dbo.rpt__cats 

select src_cat_name, src_sub_cat, location, rpt_name, rpt_description, rpt_filters from 
pmedia.dbo.rpt_cats 
BEGIN 

PRINT 'Dwell Report Catolog Updated' 
END 

- UPDATES DWELL REPORTS 
truncate table demo.dbo.rpt_cats 
insert into demo.dbo.rpt_cats 

select src_cat_name, src_sub_cat, location, rptjiame, rpt_description, rpt_fi Iters from 

pmedia.dbo.rpt_cats 
BEGIN 

PRINT 'Dwell Report Catolog Updated' 
END 

End 
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Procedure Name: sp_add autosetup_scheme 



@product_id int 

, @src_cat_name varchar(50) 

, @src_indicator varchar(3) 

, @source_name varchar (250) 

, @valid_from datetime 

, @valid__to datetime 

, @setup_mask varchar(50) 

, @e_set_name varchar(50) 

AS 

declare @title varchar(50) 
declare @grp_name varchar(50) 

select @title = title_name 

, @grp_name = grpjiame 
from corp_info 

where productjd = @product_id 
-gw added next line 

if @e_set_name is null set @e_set_name = 'Undefined 1 

insert into autosetup_scheme 
( 

product_id 
, title 

, grp_name 
, src_cat_name 
, src_indicator 
, source_name 
, valid_from_date 
, valid_to_date 
, setup_mask 
, e_set_name 

) 

values 

( @product_id 
, @title 
, @grp_name 
, @src_cat jiame 
, @src_indicator 
, @source_name 
, @valid_from 
, @valid_to 
, @setup_mask 
, @e_set_name 

) 
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Procedure Name: spAddCampaign 



@camp_name varchar(250), - 1 
@camp_type varchar(50), --2 
@camp_status_name varchar(20) 3 - 3 
@camp_date_fr smalldatetime, 4 
@camp_date_to smalldatetime, - 5 
@agt_code varchar( 10), -6 
@agt_descr varchar(50), - 7 
@e_set_name varchar(50), — 8 
@r_set_name varchar(50), - 9 
@newstand_sale numeric( 18), ™ 1 0 
@budgeted_jgross_pct numeric(9), 1 1 
@budgeted_vol numeric(9), -12 



@source_name varchar (250), -- 13 
@src_indicator char (3 ), - 1 4 
@product_Jd numeric(8,0), - 1 5 
@src_cat_name varchar(30), - 16 
@grp_name varchar(50), -- 17 
@title_name varchar (250) - 1 8 



camp_name, 

camp_type, 

camp_status_name, 

camp_date_fr, 

camp_date_to, 

agt_code, 

agt_descr, 

e_set_name, 

r_set_name, 

newstand_sale, 

budgetedjvol, 

budgetedjgross_pct, 



product_id, 

src_cat_name, 

source_name, 

src_jndicator, 

grp__name, 

title name 



@camp_name, 

isNull( @camp_type, 1 Undefined'), 
isNull( @camp_status_name, , Undefined'), 
@camp_date_fr, 




) 

values 
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@camp_date_to 5 

@agt__code, 

@agt_descr, 

isnull(@e_set_name, , Undefined , ) J 

isnuli(@r_set_name/Undefined') ) 

@newstand_sale, 

@budgeted_vol, 

@budgetedj>ross_pct ? 

@product_id, 

@src_cat_name, 

@source_name, 

@src_indicator } 

@grp_name, 

@title_name 
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Procedure Name: sp__add_campaign_def 



@product_id int 
, @campaign_code varchar(50) 
, @campaign_description varchar(50) 
, @src_cat_name varchar(50) 
, @campaign_date datetime 
, @panel_scheme varchar(50) 
AS 

insert into autosetup_campaign_def 
( product_id 

, campaign_code 

, campaign_description 

, src_cat_name 

, campaign_date 

, panel_scheme 

) 

values 

( @product_id 

, @campaign_code 
, @campaign_description 
, @src_cat_name 
> @campaign_date 
, @panel_scheme 

) 
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Procedure Name: sp_Add_Corp_Panel_Sub_Type 

@panel_sub_type_name varchar(50), 
@panel_sub_type_descr varchar(250) 

AS 

insert into CorpJPanel_Sub_Type 
( 

panel_sub_type_name, 
panel_sub_type_descr 

) 

values 
( 

@panel_sub_type_name, 
@panel_sub_type_descr 



Integrated Marketing Technology 



9/27/00 3:38 PM 



Page 66 of 142 




IMT Subscription Marketing Reporting System 



Procedure Name: sp_Add_Corp_Panel_Test_Type 

@panel_test_type_name varchar(50), 
@paneljest_type_descr varchar(250) 

AS 

insert into Corp_Panel_Test_Type 
( 

panel_test_type_name, 
panel_test_type_descr 

) 

values 

( 

@panel_test_type_name, 
@panel_test_type_descr 

) 
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Procedure Name: sp_Add_Corp_Panel_Type 



@panel_type_name varchar(50), 
@panei_type_descr varchar(250) 

AS 

insert into Corp_Panel_Type 
( 

panel_type_name, 
panel_type_descr 

) 

values 

( 

@panel_type_name, 
@panel_type_descr 

) 
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Procedure Name: spAddJKeys 



@rec_id numeric(9,0), 
@src_cat_name varchar(50) ; 
@source_name varchar(250), 
@src_jndicator char (3), 
@camp_name varchar (250), 
@panel_name varchar (250) 

AS 

declare @product_id numeric(8,0), -for keys table 

@fulI_promo_key varchar (25), 
@dt_valid_frorn smalldatetime, 
@dt_valid_to smalldatetime, 
@key_mail_qty numeric(8,0), 
@list_cost_basis varchar(25), 
@list_cat_name varchar(250), 
@list_name varchar(250), 
@list_segment__name varchar(250), 

- for info from panels table 

@PANELJTYPE varchar(50), 
@PANEL_SUBTYPE varchar(50), 
@TEST_TYPE varchar(50), 
@PANEL_OFFER varchar(50), 
@PANEL_OFFER_PRICE money, 
@PANEL_PKG varchar(50), 
@PANEL_PREMIUM varchar(50), 
@PANEL_DATE_START smalldatetime, 
@PANELJDATE_END smalldatetime, 
@GRP_NAME varchar(50), 
@TITLE_NAME varchar(50), 
@CAMP_TYPE varchar(50), 
@CAMP_STATUS_NAME varchar(50), 
@AGT_CODE varchar(50), 
@AGT_DESCR varchar(50), 
@CAMP_DATE_FR smalldatetime, 
@CAMP_DATE_TO smalldatetime, 
@E_SET_NAME varchar(50), 
@R_SET_NAME varchar(50), 
@newstand_sale_marker varchar(50), 
@newstand_sale NUMERIC(18) 

select @full_promo_key = fiill_promo_key, 

@dt_valid_to = dt_valid_to, 

@product_id = product_id, 

@key_mail_qty = mail_qty 
from avail_keys 
where rec_id=@rec_id 

-get panel and other info for key table 
declare cjpanel_info cursor for 
select PANEL_TYPE , 
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PANEL_SUBTYPE , 
TESTTYPE , 
PANELJDFFER, 
PANEL_OFFERJPRICE , 
PANEL_PKG , 
PANELPREMIUM , 
PANELJDATE_START, 
PANEL_DATE_END , 
GRP_NAME , 
TITLEJJAME , 
CAMP_TYPE , 
CAMP_STATUS_NAME , 
AGTCODE , 
AGTDESCR , 
CAMP_DATE_FR , 

CAMP_DATE_TO, E_SET_NAME, R_SET_NAME 

from panels where product Jd = @product_id and src_cat_name = @src_cat_name and 
source_name = @source_name 

and camp_name = @camp_name and panel_name = @panel_name 
select ©PANEL JTYPE = PANEL_TYPE , 

@PANEL_SUBTYPE = PANEL_SUBTYPE , 

@TEST_TYPE - TEST_TYPE , 

@PANEL_OFFER = PANELJDFFER, 

@PANELJDFFER_PRICE = PANEL_OFFER_PRICE , 

@PANEL_PKG « PANEL_PKG , 

@PANEL_PREMIUM = PANEL_PREMIUM , 

@PANEL_DATE_START - PANEL_DATE_START, 

@PANEL_DATE_END - PANELJDATEJEND, 

@GRP_NAME = GRP_NAME, 

@TITLE_NAME - TITLE_NAME , 

@CAMP_TYPE - CAMP JTYPE , 

@CAMP_STATUS_NAME - CAMP_STATUS_NAME , 

@AGT_CODE = AGT_CODE , 

@AGT_DESCR = AGT_DESCR , 

@CAMP_DATE_FR = CAMP_DATE_FR , 

@CAMP_DATE_TO = CAMP_DATE_TO, 

@E_SET_NAME - E_SET_NAME, 
@R_SET_NAM£ = R_SET_NAME , 

@newstand_sale_marker = newstand_sale__marker, 

@newstand_sale = Newstand_sale 
from panels 

where product Jd = @product_id 
and src_cat_name = @src_cat_name 
and source_name = @source_name 
and camp_name = @camp_name 
and panel_name = @panel_name 

insert into keys 
( 

fuli_promo_key, 

dt_valid_from, 
dt_valid_to, 
src_cat_name, 
srcjndicator, 
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paneljiame, 

camp_name, 

product_id, 

source_name, 

key_mail_qty, 

PANEL_TYPE, 

PANEL_SUBTYPE, 

TESTJTYPE, 

PANELJ3FFER, 

PANEL_OFFER_PRICE, 

PANEL_PKG, 

PANEL_PREMIUM, 

PANEL_DATE_START, 

PANEL_DATEEND, 

GRP_NAME, 

TITLE_NAME, 

CAMPJTYPE, 

CAMP_STATUS_NAME, 

AGTCODE, 

AGT_DESCR, 

CAMP_DATE_FR, 

CAMP_DATE_TO, 

E_SET_NAME, 

R_SET_NAME, 

newstand_sale__marker, 

newstand_sale, 

list_cost_basis, 

list_cat_name, 

list_name, 

list_segment_name 

) 

values 

( @fiill_promo_key, 

dateadd(month,-20,@dt_valid_to), 

@dt_vaiid_to, 

@src_cat_narae, 

@src_indicator, 

@panel_name, 

@camp_name } 

@product_id, 

@source_name, 

@key_mail_qty, 

@PANELTYPE, 
@PANEL_SUBTYPE, 
@TEST_TYPE, 
@PANEL_OFFER, 
@PANEL_0FFER_PR1CE, 
isNullCfgPANE^PKG/Undefined'), 
@PANEL_PREMIUM, 
@PANEL_DATE_START, 
@PANEL_DATE_END, 
@GRP_NAME, 
@TITLE_NAME, 
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@CAMP_TYPE, 

@CAMP_STATUS_NAME, 

@AGT_CODE, 

@AGT_DESCR, 

@CAMP_DATE_FR, 

@CAMPJDATETO, 

Undefined', 

Undefined', 

isNul^newstand^sale^marker,^)) 

@newstand_saie, 

Mail QTY 1 , 

Undefined', 

Undefined', 

Undefined' 



if(@@error-0) 
begin 

Delete from avail_keys where rec_id = @rec_id 
end 

close c_panel_info 
deallocate c_panel_info 
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Procedure Name: sp_Add_Keys2 

@rec_id numeric(9,0), 
@src_cat_name varchar(30), 
@source_name varchar(250), 
@src_indicator char (3), 
@camp_name varchar (250), 
@panel_name varchar (250) 



declare @product_id numeric(8,0), -for keys table 

@fiill_promo_key varchar (25), 
@dt_valid_from smalldatetime, 
@dt_valid_to smalldatetime, 
@key_mail_qty numeric(8,0), 

— for info from panels table 

@PANEL_TYPE varchar(50), 
@PANEL_SUBTYPE varchar(50), 
@TESTTYPE varchar(50), 
@PANEL_OFFER varchar(50), 
@PANEL_OFFER_PRICE money, 
@PANEL_PKG varchar(50), 
@PANEL_PREMIUM varchar(50) ) 
@PANEL_DATE_START smalldatetime, 
@PANEL_DATE_END smalldatetime, 
@GRP_NAME varchar(50), 
@TITLE_NAME varchar(50), 
@CAMP_TYPE varchar(50), 
@CAMP_STATUS_NAME varchar(50), 
@AGT_CODE varchar(50), 
@AGT_DESCR varchar(50), 
@CAMP_DATE_FR smalldatetime, 
@CAMP_DATE_TO smalldatetime 



declare c_avail_key cursor for 

select fuil_promo_key, dt_valid_to, product jd,mail_qty from availjceys where rec_id=@rec_id 

open c_avaii_key 

fetch c_avail_key into @full_promo_key, @dt_valid_to, @product_id, @key_mail_qty 

-get panel and other info for key table 
declare c__panel_info cursor for 
select PANEL_TYPE , 

PANEL_SUBTYPE , 

TEST_TYPE , 

PANEL_OFFER, 

PANEL_OFFER_PRICE , 

PANEL_PKG , 

PANEL_PREMIUM , 

PANEL_DATE_START, 
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PANELJDATEJEND , 
GRP_NAME , 
TITLE__NAME , 
CAMP_TYPE , 
CAMP_STATUS_NAME , 
AGTCODE , 
AGT_DESCR , 
CAMP_DATE_FR , 

CAMPJDATEJTO from panels where product Jd = @product_id and src j;at_name - 
@src_cat_name and source_name = @source_name 

and camp_name = @campjiame and panel_name = @panel_name 

open c_panel_info 
fetch c_panei_info into 

@PANEL_TYPE, 

@PANEL_SUBTYPE, 

@TEST_TYPE, 

@PANEL_OFFER, 

@PANEL_OFFER_PRICE, 

@PANEL_PKG, 

@PANEL_PREMIUM, 

@PANEL_DATE_START, 

@PANEL_DATE_END, 

@GRP_NAME, 

@TITLE_NAME, 

@CAMP_TYPE, 

@CAMP_STATUS_NAME, 

@AGT_CODE, 

@AGT_DESCR, 

@CAMP_DATE_FR, 

@CAMP_DATE_TO 

print dateadd(month r 20,@dt_valid_to) 

insert into keys 

( 

full_promo_key, 

dt_valid_frorn, 

dtjvaIid_to, 

src_cat_name, 

src_indicator, 

panel_name, 

camp_name, 

productjd, 

source__name, 

key_mail_qty, 

PANELJTYPE, 

PANEL_SUBTYPE, 

TESTJTYPE, 

PANEL_OFFER, 

PANEL_OFFER_PRICE, 

PANEL_PKG, 

PANEL JPREMIUM, 

PANEL_DATE_START, 
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PANEL_DATE_END, 

GRP_NAME, 

TITLE_NAME, 

CAMP_TYPE, 

CAMP_STATUS_NAME, 

AGT_CODE, 

AGTJDESCR, 

CAMPDATEFR, 

CAMP_DATE_TO 

) 

values 

( @full__promo_key, 

dateadd(month,-20,@dt_valid_to), 

@dt_va!id_to, 

@src_cat_name, 

@src_jndicator, 

@panel_name, 

@camp_name, 

@product_id, 

@source_name, 

@key__mail_qty, 

@PANEL_TYPE, 

@PANEL_SUBTYPE, 

@TEST_TYPE, 

@PANEL_OFFER, 

@PANEL_OFFER_PRICE, 

@PANELPKG, 

@PANEL_PREMIUM, 

isNuII( @PANEL_DATE_START,null) , 

isNuII(@PANEL_DATE_END,nuII) , 

@GRP_NAME, 

@TITLE_NAME, 

@CAMP_TYPE, 

@CAMP_STATUS_NAME, 

@AGT_CODE, 

@AGT_DESCR, 

isNuli(@CAMP_DATE_FR,null) , 
isNuU( @CAMP J3ATEJTO,null) 

) 

close c_avail_key 
deallocate c_avail_key 

Delete from availjceys where recjd = @rec_jd 

close c_paneI_info 
deallocate c_panel_info 
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Procedure Name: sp_Add_Pane! 



@panel_name varchar(250), - 1 
@panel_type varchar(50), -2 
@panel_subtype varchar(50), -3 
@test_type varchar(50), ~4 
@panel_pkg varchar(50), -5 
@panel_date_start datetime, -6 
@panel_date_end datetime, -7 
@e_set_name varchar(50), -8 
@r_set_name varchar(50), —9 
@newstand_sale_marker char( 1 ), - 1 0 



@product_jd numeric(8,0), - 1 1 
@grp_name varchar(50), - 12 
@title_name varchar (250), ~ 1 3 
@src_cat_name varchar(30), - 1 4 
@source_name varchar (250), - 1 5 
@src_indicator char (3), —16 
@camp_name varchar(250), - 1 7 
@camp_type varchar(50), -18 
@camp_status_narne varchar(20), -19 
@agt_code varchar( 1 0), -20 
@agt_descr varchar(50), -2 1 
@camp_date_fr datetime, -22 
@camp_date_to datetime -23 

AS 

declare 

@1E_SET_NAME varchar(50), 
@1R_SET_NAME varchar(50), 
@lNewStand_sale NUMERIC(18) 
—get expense and revenue set names for pass down if blank 

select @1E_SET_NAME = E_SET_NAME, 
@1R_SET_NAME = R_SET_NAME, 
@lNewStand_sale = Newstand_sale 
from campaigns where product_id = @PRODUCTJD 

and SRC_CAT_NAME = @SRCCAT_NAME and SOURCE_NAME = @SOURCE_NAME 
and CAMP_NAME = @CAMP_NAME 



insert into panels 
( 

panel_name, 

paneMype, 

panel_subtype, 

test_type, 

panel_pkg, 

panel_date_start, 

panel_date__end, 

e_set__name, 
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r_set_name, 
newstand_sale_marker, 

productjd, 
grp_name, 
title_name, 
src_cat_name, 
source_name, 
src_indicator, 
camp_name, 
campjype, 
camp_status_name, 
agt_code, 
agt_descr, 
camp_date_fr, 
camp_date__to, 
Newstand_sale 

) 

values 
( 

@panel_name, 

isnull^paneljype/Undefmed*), 

isnull^paneLsubtype/UndefinedO, 

isnuIl(@test_type,TJndeflned , ), 

isnun^gpaneljkg/Undefined'), 

@panel_date_start, 

@panel__date_end, 

isnul^e^se^name^lE^SE^NAME), 
isnuil(@r_set_name,@iR_SET_NAME), 
@newstand_sale_marker, 



@product_id, 

@grp_name, 

@title_name, 

@src_cat__name, 

@source_name, 

@src_indicator, 

@camp_name, 

@camp_type, 

@camp_status_name, 

@agt_code, 

@agt_descr, 

@camp_date_fr, 

@camp_date_to, 

@!NewStand_sale 
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Procedure Name: sp_add_panel_def 



@product_id int 
, @panel_scheme varchar(50) 
, @panel_codes varchar(250) 
, @panel_name varchar(50) 



insert into autosetup_panel_def 



AS 



( 



product_id 



, panel_scheme 
, panel_codes 
, panel_name 



) 

values 
( 



@product_id 



, @panel_scheme 
, @panel_codes 
, @panel_name 



) 
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Procedure Name: sp_Add_prior_Source_desc 



@prior_source Jdentifier char (2) 
, @prior_source_desc varchar (20) 
, @biliing_cur_src_desc varchar (255) 
, @model__source_cat varchar(50) 
, @modeI_source varchar(50) 
, @agent_src_desc varchar(50) 
, @vaIid_from_date datetime 
, @valid_to_date datetime 
, @product_id numeric(18, 0) 

as 

insert into Prior_source_desc 

( 

product_id 

, prior_source_identifier 
, prior_source_desc 
, billing^cw^srcjiesc 
, model_source_cat 
, model_source 
, agent_src_desc 
, valid_fromjiate 
, valid_to_date 

) 

values ( 

@product_id 

, @prior_source ^identifier 
, @prior_source_desc 
, @billing_cur_src_desc 
, @model_source_cat 
, @model_source 
, @agent_src_desc 
, @valid_frorn_date 
, @valid_to_date 

) 
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Procedure Name: sp_Add_Prod_Camp_Status 

@camp_status_name varchar(20), 
@camp_status_descr varchar(250), 

@product_jd numeric(8,0) 

AS 

insert into Prod_Camp_Status 

c 

camp_status_name, 
camp_status_descr, 
product__id 

) 

values 
( 

@camp_status_name, 
@camp_status_descr, 
@product_id 
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Procedure Name: sp_Add_Prod_Camp_Type 



@camp_type_name varchar(250), 
@camp_type_descr varchar(250), 

@product_id numeric(8,0) 

AS 

insert into Prod_Camp_Type 
( 

camp_type_name, 
camp_type_descr, 
product_id 

) 

values 

( 

@camp_type_name, 
@camp_type_descr, 
@product_id 
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Procedure Name: sp_Add_Prod_E_Set 



@product_id numeric(8, 0) , 
@e_set_name varchar (50) , 
@print_costnumeric(ll ) 3) , 
@print_cpm_cpu varchar (10) , 
@print_basis varchar (20) , 
@merge_purgenumeric(ll, 3) , 
@merge_cpm_cpu varchar (10) , 
@merge_basis varchar (20) , 
@ltr_costnumeric(ll,3) , 
@itr_cpm_cpu varchar (10) , 
@ltr_basis varchar (20) , 
@postage_out_cost numeric(l 1,3), 
@postage_out_cpm_cpu varchar (10) , 
@postage__out_basis varchar (20) , 
@postage_in_costnumeric(lU3) , 
@postage_in_cpm_cpu varchar (10) , 
@postage_in_basis varchar (20) , 
@premium_cost numeric(l 1,3), 
@premium_cpm_cpu varchar (10) , 
@premium_basis varchar (20) , 
@badpay_cost numeric(l 1,3), 
@badpayj;pm__cpu varchar (10) , 
@badpay_basis varchar (20) , 
@bi!ling_cost numerical, 3) , 
@billing_cpm_cpu varchar (10) , 
@billing_basis varchar (20) , 
@subs_svc_costs numeric(l 1,3), 
@subs_svc_cpm_cpu varchar (10) , 
@subs_svc_basis varchar (20) , 
@exp_other_costs numeric(l 1, 3) , 
@exp_other_cpm_cpu varchar (10) , 
@exp_other_basis varchar (20) 

AS 

insert into expense_sets 
( 

product_id , 
e__set_name , 
print_cost , 
print_cpm_cpu , 
print_basis, 
merge_purge, 
merge_cpm_cpu, 
merge_basis, 
ltr_cost , 
ltr_cpm_cpu , 
ltr_basis , 
postage_out_cost , 
postage_out_cpm_cpu , 
postage_out_basis , 
postage_in_cost , 
postage_in_cpm_cpu , 
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postage_in_basis , 
premium_cost, 
premium_cpm_cpu, 
premium_basis , 
badpay_cost , 
badpay_cpm_cpu , 
badpay_basis , 
billing_cost , 
billing_cpm_cpu , 
billing_basis , 
subs_svc_costs , 
subs_svc_cpm_cpu , 
subs_svc_basis , 
exp_other_costs , 
exp_pther_cpm_cpu , 
exp_other_basis 

) 

values 
( 

@product_id , 
@e_set_name , 
@print_cost , 
@print_cpm_cpu , 
@print_basis, 
@merge_purge, 
@merge_cpm_cpu, 
@merge_basis, 
@ltr_cost , 
@ltr_cpm_cpu , 
@Itr Jrasis , 
@postage_out_cost , 
@postage_out_cpm_cpu , 
@postage_out_basis , 
@postage_in_cost , 
@postage jn_cpm_cpu , 
@postage_in_basis , 
@premium_cost, 
@premium_cpm_cpu, 
@premium_basis , 
@badpay_cost , 
@badpay_cpm_cpu , 
@badpay_basis , 
@billing_cost , 
@biiiing_cpm_cpu , 
@billing_basis , 
@subs_svc_costs , 
@subs_svc_cpm_cpu , 
@subs_svc_basis , 
@exp_pther_costs , 
@exp_other_cpm_cpu , 
@exp_other_basis 
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Procedure Name: sp_AddJProd_List_cat 



-added on 01/05/2000 

@name varchar(250), 
@descr varchar(250), 
@product_id numeric(8,0) 



insert into List_cats 

( 

list__cat_name, 
list_cat_descr, 
product_id 

) 

values 
( 

@name, 
@descr, 
@product_id 
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Procedure Name: sp_Add_Prod_List_Name 



-added on 01/05/2000 

@name varchar(250), 
@descr varchar(250), 
@product_id numeric^O) 

AS 

insert into List_names 
( 

listjiame, 

list_name_description, 
product_id 

) 

values 
( 

@name, 
@descr, 
@product_id 

) 
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Procedure Name: sp_Add_Prod_List_Segment 



- added on 01/05/2000 

@name varchar(250), 
@descr varchar(250), 
@product_id numeric(8,0) 

AS 

insert into List_Segments 

( 

list_segment_name, 

list_segmentjiescription, 

product_id 

) 

values 
( 

@name, 
@descr, 
@product_id 
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Procedure Name; sp_Add_Prod_Panel_Package 



@package_name varchar(50), 
@package_description varchar(25 0), 
@Product_id numeric(9) 

AS 

insert into Prod_panei_Package 
( product_id, 

package^name, 

package_description 

) 

values 

( @product_id, 

@package_name, 
@package_description 
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Procedure Name: sp_Add_ProdJR_Set 



@product_id numeric(8, 0), 
@r_set_name varchar (50) , 
@subs_revenue numeric(l 1, 3) , 
@subs_cpm_cpu varchar (10) , 
@ad_revenue numeric(l 1, 3), 
@ad_cpm_cpu varchar (10), 
@listrentai_revenue numeric(l 1,3), 
@listrental_cpm_cpu varchar (10), 
@other_revenue numeric(l 1, 3), 
@other_cpm_cpu varchar (10) 

AS 

insert into revenue_sets 
( product Jd , 

r_set_name , 

subs_revenue , 

subs_cpm_cpu , 

ad_revenue, 

ad_cpm_cpu , 

Hstrental_revenue, 

listrental_cpm_cpu , 

other j-evenue, 

other_cpm_cpu ) 

values 

( @product_id , 

@r_set_name , 
@subs_revenue , 
@subs_cpm_cpu , 
@ad_revenue, 
@ad_cpm_cpu , 
@listrental_revenue, 
@listrental_cpm_cpu , 
@other_revenue, 
@other_cpm_cpu ) 
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Procedure Name: sp_add_renewal_psdef 



@product_id int 

, @src_cat_name varchar(50) 

, @src_indicator varchar(SO) 

, @prior_src_indicator varchar(250) 

, @source_name varchar (250) 

, @valid_from datetime 

, @valid_to datetime 

AS 

declare @title varchar(50) 
declare @grp_name varchar(50) 

select @title = title_name 
from corp_info 

where productjd = @product_id 

insert into autosetupj*enewal_psdef 
( 

product_id 
, title 

, src_cat_name 

, source_indicator 

, prior_source_indicator 

, source_name 

, validjromjdate 

, valid_to_date 

) 

values 

( @product_id 
, @title 

, @src_cat_name 
, @src_indicator 
, @prior_src_indicator 
, @source_name 
, @valid_from 
, @valid_to 
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Procedure Name: sp_Add_Source 

@sourcejiame varchar (250), 
@src_indicator char (3), 

@product_jd numeric(8 ? 0), 
@src_catjiame varchar(30), 
@grp_name varchar(50), 
@title_name varchar (250) 

AS 

insert into source 
( 

product_id, 

src_catjname } 

source_name, 

srcjndicator, 

grp_name, 

title_name 

) 

values 

( @product_id, 

@src_cat__name, 

@source_name, 

@src_jndicator, 

@grp_name, 

@title_name 
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Procedure Name: sp_Add_Source_description 



@u_source_name varchar(250), 
@u_source_description varchar(250) 

AS 

insert into Source_descriptions 

( 

u_source_name 3 
u_source_description 

) 

values 
( 

@u_source_name, 
@u_source_description 

) 
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Procedure Name: sp_cascade_product id 



INSERT INTO list_cats 
SELECT productjd, , Undeflned , ; , 
FROM corpjnfo 
WHERE productjd not in ( 

select product_id 

FROM list_cats 

WHERE iist_cat_name = 'Undefined* ) 



INSERT INTO listjiames 
SELECT product Jd, 'Undefined'," 
FROM corpjnfo 
WHERE productjd not in ( 

select productjd 

FROM listjiames 

WHERE listjiame = 'Undefined* ) 

INSERT INTO list_segments 
SELECT productjd, 'Undefined'," 
FROM corpjnfo 
WHERE productjd not in ( 

select productjd 

FROM list_segments 

WHERE list_segmentjiame = 'Undefined' ) 

INSERT INTO expense_sets 
SELECT productjd, 'Undefined', 

null, null, null, null, 

null, null, null, null, 

null, null, null, null, 

null, null, null, null, 

null, null, null, null, 

null, null, null, null,' 

null, null, null, null, 

null, null, null, null, 

null 

FROM corpjnfo 
WHERE productjd not in ( 

select productjd 

FROM expense_sets 

WHERE e_set_name ~ 'Undefined' ) 

INSERT INTO revenue_sets 
SELECT productjd, 'Undefined', 

null, null, null, null, 

null, null, null, null 
FROM corpjnfo 
WHERE productjd not in ( 

select productjd 

FROM revenue_sets 

WHERE r_set_name = 'Undefined' ) 
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INSERT INTO prod_camp_status 
SELECT product_id, 'Undefined'," 
FROM corp_info 
WHERE product_id not in ( 

select product_id 

FROM prod_camp_status 

WHERE camp_status_name = 'Undefined 1 ) 

INSERT INTO prod_campJype 
SELECT product_id, Undefined*," 
FROM corp_info 
WHERE product_id not in ( 

select product_id 

FROM prod__camp_type 

WHERE camp_type_name = 'Undefined 1 ) 

INSERT INTO prod_panel__package 
SELECT productjd, Undefined 1 ," 
FROM corpjnfo 
WHERE product_id not in ( 

select product_id 

FROM prod_panel_package 

WHERE package_name = Undefined* ) 
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Procedure Name: sp_De!eteCamp_Statuses 

@product Jd numeric(9), 
@camp_status_name varchar(20) 

AS 

delete from camp_statuses where product jd = @product_id and camp_status_name = 
@camp_status_name 
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Procedure Name: sp_De!eteCamp_Types 

@product_id numeric(9), 
@camp_type varchar(50) 

AS 

delete from campjypes where productjd = @product_id and campjype = @camp_type 
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Procedure Name: sp_DeietePanel_SubTypes 

@product_id numeric(9), 
@panel_subtype varchar(50) 

AS 

delete from p_sub_types where productjd = @product_id and panel_subtype = @panel_subtype 
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Procedure Name: sp_DeletePanel_TestTypes 

@product_id numeric(9), 
@test_type varchar(50) 

AS 

delete from p_test_types where product Jd = @product_id and test Jype - @test_type 
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Procedure Name: sp DeletePan el Types 

@product_id nurneric(9), 
@panel_type varchar(50) 

AS 

delete from p_types where product_id = @product_id and paneljype - @panel_type 
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@rpt_id numeric(9) 
AS 

delete from rpt_Defs where rpt_id = @rpt_id 
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Procedure Name: sp edit autosetup 

@src_cat_jiame varchar(50) 
, @src_indicator varchar(lO) 
, @source_name varchar(250) 
, @valid_from_date datetime 
, @valid_to_date datetime 
, @setup_mask varchar(50) 
, @e_set_name varchar(50) 
, @login Varchar(50) 
, @rec_id numeric(8,0) 
, @isDelete numeric(l,0) 

AS 



If(@isDelete=l) 
begin 

delete from autosetup_scheme where rec Jd = @rec_id 
end 

if(@isDelete=0) 
begin 

UPDATE autosetup_scheme 

SET src_cat_name = @src_cat_name 

, source_name = @source_name 

, src_indicator = @src_indicator 

, valid_frorn_date = @valid_frorn_date 

, valid_to_date = @valid_to_date 

, setup_mask = @setup_mask 

, e_set_name = @e_set_name 
WHERE rec_id = @rec_id 
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Procedure Name: sp_edit_autosetup_campaign_def 

@campaign_code varchar(50) 

, @campaign_description varchar(200) 

> @src_cat_name varchar(250) 

, @campaign_date datetime 

, @panel_scheme varchar(50) 

, @rec_id numeric^O) 

, @isDelete numeric(l,0) 

AS 

If(@isDeiete=l) 
begin 

delete from autosetup_campaign_def where rec_id = @rec_id 
end 

if(@isDelete=0) 
begin 

UPDATE autosetup_carnpaign_def 
SET campaign_code = @campaign_code 

, campaign_description - @campaign_description 

, src_catjiame = @src_cat_name 

, campaign_date = @campaign_date 

, panel__scheme - @panel_scheme 
WHERE rec_id = @rec_id 
End 
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Procedure Name: sp_edit_autosetup_panel_def 



@panel_scheme varchar(50) 
, @panel_codes varchar(255) 
, @panel_name varchar(50) 
, @rec_id numeric(8,0) 
, @isDelete numeric(l,0) 

AS 

If(@isDelete=l) 
begin 

delete from autosetup__panel_def where recjd = @rec_id 
end 

if(@isDeiete=0) 
begin 

UPDATE autosetup_panel_def 
SET panel_scheme = @panel_scheme 

, panel__codes = @panel_codes 

, panel_name = @panel_name 
WHERE recjd = @rec_id 
end 
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Procedure Name: procedure sp_edit_autosetup_renewai_psdef 



@src_catjiame varchar(50) 

, @source_name varchar(50) 

, @source__indicator varchar(50) 

, @prior_source_indicator varchar(255) 

, @valid_from_date datetime 

, @valid_to_date datetime 

, @rec_id numeric(8,0) 

, @isDelete numeric(l,0) 

AS 

If(@isDelete=l) 
begin 

delete from autosetup_renewal_psdef where rec_id = @rec_id 
end 

if(@isDelete=0) 
begin 

UPDATE autosetup_renewal_psdef 

SET src_cat_name = @src_cat__name 
, source_name = @source_name 
, source_indicator = @source_indicator 
, prior_source_indicator = @prior_source_indicator 
, valid_frorn_date = @valid_from_date 
, valid_to_date = @valid_to_date 

WHERE rec_id = @rec_id ' 
end 
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Procedure Name: sp_Edit_Campaign 

@camp_name varchar(250), -- 1 
@camp_date_fr smalldatetime, -- 2 
@camp Jype varchar(50), -3 
@camp_status_name varchar(20), - 4 
~@camp_date_to smalldatetime, — 5 
~@agt_code varchar(lO), 6 
~@agt__descr varchar(50), 7 
@e_set_name varchar(50),, - 8 
@r_set_name varchar(50), - 9 
~@newstand_sale numeric( 18), -10 
©budgeted j*ross_pct numeric(18,3), - 11 
@budgeted_vol numeric(18,3), --12 
@loginVARCHAR(50), -13 

@rec_id numeric(8,0), 
@isDelete numeric(l,0) 

AS 

declare 

@1PR0DUCT JD numeric(8,0), 
@1CAMP_NAME varchar(50), 
@1S0URCE_NAME varchar(250), 
@lE_set_name Varchar(50), 
@lR_set_name Varchar(50), 
@lsrc_cat_name VARCHAR(30), 
©message VARCHAR(255) 

-Copy vars 

declare @copycampname varchar(50) 
declare @copies int 

-get camp, panel and other info for deletions from key table 
begin ~sp 

select @1PR0DUCTJD = productjd, 

@ICAMP_NAME = campjiame, 

@1S0URCE_NAME = source_name, 

@lsrc_cat_name = src _cat_name , 

@lE_setjiame = E_set_name, 

@lR_set_name = r_set_name 
from campaigns 
where rec_jd = @rec_id 

if (@IsDelete=2) -then copy existing campaign and associated records into new record(s) 
begin 

set @copycampname = "Copy _ of " + @camp_name 
-Get number of next copy 
select @copies = (count(*) + 1) 
from campaigns 

where camp_name like @copycampnarne 
if ©copies < 10 set ©copycampname - "Copy H + cast(@copies as varchar(l )) + M of " 
else set ©copycampname = "Copy " + cast(@copies as varchar(2)) + " of " 
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-Insert new copy of campaign 
insert campaigns (src_indicator, 

src^cat^name, 

product_id, 

campjype, 

camp_name, 

camp_status_name, 

-agt_code, 

~agt_descr, 

camp_date_fr, 

~camp_date_to, 

e_setjuame, 

r_set_name 3 

grp^name, 

titlejiame, 

source_name, 

newstand_sale, 

budgeted_gross_pct, 

budgeted_vol, 

campaign_code) 

—values 

select src_indicator, 
src__cat_narne, 
productjd, 
camp_type, 

@copycampname + @camp_name as campname, 

camp_status_name, 

— agt_code, 

-agt_descr, 

camp__date_fr, 

~dateadd(month,l,camp_date_to) as camp_date_to, 

e_set_name, 

r_set_name, 

grp__name, 

titlejiame, 

source_name, 

newstand_sale, 

budgeted_£ross_pct, 

budgeted_vol, 

campaign_code 
from campaigns 
where rec_id = @rec_id 

—Insert new copies of panels from the campaign we are copying 
insert panels 

select @copycampname + @camp__name as campname, 
src_indicator, 
panel_name, 
src_cat_name, 
productjd, 
paneijype, 
ejetjiame, 
panel_subtype, 
rjetjiame, 
testjype, 
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panel_offer, 
panel_offer_jprice, 
panel_pkg, 
pane l_p rem ium, 
panel_date_start } 
panel_date_end, 
grp_name, 
title_name, 
source_name, 
camp_type, 
camp_status_name, 
agt_code, 
agt_descr, 
camp_date_fr, 
camp_date_to, 
Newstand_Sale_Marker, 
Newstand_Sale, 
Budgetedjp-oss_pct, 
Budgeted_vol, 
campaign_code 
, panel_code 
, null as order_qty 
, null as dist_qty 
from panels 

where productjd = @1PR0DUCT_ID 
and src_cat_name = @lsrc_cat_name 
and source_name = @1S0URCE_NAME 
and camp_name = @1CAMP_NAME 



end -if 

If (@isDelete=l) -then delete campaign and associated records 
begin 

declare c_keys cursor for /* rlOl recordset - the main/reference one */ 
select productjd, fall_promoJkey 
from keys 

where product_id = @lproduct_id 
and camp_name = @lcamp_name 
and SOURCE_NAME = @1S0URCE_NAME 
and src_cat_name = @lsrc_cat_name 

declare 

@lkeys J>RODUCTJD numeric(8,0), 
@lfull_promo_key varchar(50) 

open c_keys 

fetch cjceys into @lkeys_product_id, @lfiill_promoJcey 

while (@@fetch_status = 0) 
begin 

exec doRecycleKey @lkeysjproduct_id, @lfull jromojcey 
fetch c_keys into @lkeys_product__id, @lfiill_promo_key 
end 

close cjceys 

deallocate c_keys 
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delete 
from keys 

where productjd = @1PR0DUCTJD 
and src_cat_name = @lsrc_cat_name 
and sourcejiame - ©1SOURCEJNAME 
and camp_name = @1CAMP_NAME 

delete 
from panels 

where productjd = ©1PRODUCT JD 
and src_cat_name = @lsrc_cat_name 
and sourcejiame = @iSOURCE_NAME 
and campjiame = @1CAMP_NAME 

delete from campaigns where recjd = ©rec jd 
set ©message = 'Campaign: ' + @1CAMP_N AME + 1 Source: * + @1S0URCE_NAME + ' Srcj 
@lsrc_cat_name + *, delete applied to panel and keys' 

exec spjoginfo ©Iproductjd, ©login, delete Campaign*, ©message 
end 

if (@IsDelete=0) -Update 
begin 

update keys 
set campjiame = ©campjiame, 
camp_type=isNull(@camp_type,TJndefined , ), 
campjtatusjiame - isNull( @carap_stams jiame^ndefined'), 
camp_date_fr=@camp_date_fr, 
~camp_date_to=@camp_date_to, 
-agt_code=@agt_code, 
-agt_descr=@agt_descr, 

-Newstand_sale = @newStand_sale, 

budgeted_vol = ©budgetedj^ol, — 1 1 

budgeted_gross_pct = ©budgeted _gross j>ct 

where productjd = ©1PRODUCT JD 

and source_name - @1S0URCE_NAME 

and camp_name = @1CAMP_NAME 

and src_cat_name = @lsrc_cat_name 



update panels 

set campjiame = ©campjiame, 
camp_type=isNull(@camp_type,TJndefined , ) ) 
campjtatusjiame - isNull( @camp_status jiame,TJndefined'), 
camp_date__fr=@camp_date_fr } 
-camp_date__to=@camp_dateJo, 
~agt_code=@agt_code, 
--agt_descr=@agt_descr, 

— Newstanajsale = @newStand_sale, 

budgeted_vol - ©budgetedjvol, - 1 1 

budgeted_gross__pct = ©budgeted _gross_pct 

where productjd = ©1PRODUCTJD 

and sourcejiame = @1S0URCE_NAME 

and campjiame = @1CAMP_NAME 

and src_cat jiame = @lsrc_cat_name 
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update campaigns 
set camp_name = @camp jiame, 
campJype^sNull^campjype/Undefuied'), 
camp_status_name = isNull( @camp_status_name, , Undefined'), 
camp_date_fr=@camp_date_fr, 
«camp_date_to==@carnp_dateJ:o, 
— agt_code=@agt__code, 
-agt_descr=@agt_descr, 
e_set_name=isnull(@e_set_narne, , Undefined') s 
r_set_name=isnulI(@r_set_name, f Undefined f ), 
— newstand_sale = @newstand_sale, 

budgeted__vol = @budgeted_vol, - 1 1 
budgeted_gross jpct = @budgeted_gross_pct 
where recjd - @rec_id 
if (@e_Set_name o @lE_set_name ) 
BEGIN 
update panels 

set e_set_name - @e_Set_name 
WHERE product Jd = @IPRODUCT_ID 
and source_name = @1S0URCE_NAME 
and camp_name ~ @1CAMP_NAME 
and e_set_name = @le_Set_name 
and src_cat_name = @isrc_cat_name 

update keys 

set e_set_name - @e_Set_name 
WHERE product Jd = @1PR0DUCT_ID 
and source_name = @1S0URCE_NAME 
and camp_name - @ICAMP_NAME 
and e_set_name = @le_Set_name 
and src_cat_name = @Isrc_cat_name 
END 

if (@r_Set_name o @lr__set_name ) 
BEGrN 
update panels 

set r_set_name = @r_Set_narne 
WHERE product jd = @iPRODUCT_ID 
and source_name = @iSOURCE_NAME 
and camp_name = @ICAMP_NAME 
and r__set__name = @lr_Set_name 
and src_cat_name = @Isrc_cat_name 
update keys 

set r_set_name ~ @r__Set_name 
WHERE product jd = @1PR0DUCT_ID 
and source_name = @1S0URCE_NAME 
and camp jiame - @1CAMP_NAME 
and r__set_name ~ @Ir_Set_name 
and src_cat_name = @Isrc_cat_name 
END 

close c_camp_info2 

deallocate c_camp_info2 

if @lcamp_name o @camp_name 

BEGIN 

set ©message = 'Old Campaign: ' + @1CAMP_NAME + \ New Campaign: ' + 
@CAMP_NAME + \ Source: ' + 
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@1S0URCE_NAME + \ Src_cat: * + @lsrc_cat_name + edit applied to panel and keys' 

END 

ELSE 

BEGIN 

set ©message = 'Campaign: ' + @1CAMP_NAME + \ Source: 1 + 
@iSOURCE_NAME + ', Src_cat: ' + @lsrc_cat_name + \ edit applied to panel and keys' 
END 

exec spjoginfo @lproduct_id, @login, 'Edit Campaign', ©message 

end -if 
end — sp 
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Procedure Name: sp_Edit_Corp_Panel__Sub_Type 



@pane i_sub_type_name varchar(50), 
@panel_sub_type_descr varchar(250), 

@rec_id numeric(8 ? 0), 
@isDeIete numeric(l,0) 

AS 

declare @oId_value varchar(50) 

select @old_value = panel_sub_type_name 

From corp_panel_sub_type 

where rec_id = @rec_id 

If(@isDelete=l) 
begin 

exec cascade__update 'pane^subtype', (gold^value/UndefinedV'PANELSVl 
delete from Corp_Panel_Sub_Type where recjd = @rec_id 

end 
else 
begin 

if @old_value o @pane l_s ub_type_nam e 
begin 

exec cascade_update t panel_subtype , 9 @old_value,@paneI_sub_type_name/'PANELS",-i 
end 

update Corp_Panei_Sub_Type 

set pane l_sub_type_name = @panei_sub_type_name, 

panel_sub_type_descr = @panel_sub_type_descr where rec_id - @recjd 

end 
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Procedure Name: sp_Edit_CorpJPanel_Test_Type 



@panel_test_Jype_name varchar(50), 
@panel_test_type_descr varchar(250), 
@rec Jd numeric(8,0), 
@isDelete numeric(l,0) 

AS 

declare @old__value varchar(50) 

select @old_value = panel_test_type_name 

From corp_paneI_test_type 

where recjd = @rec_id 

If(@isDe[ete=l) 
begin 



exec cascade_update 'paneMesttype', @old_value, 'UndefinedY'PANELS",-! 
delete from Corp_Panei_Test_Type where recjd = @rec_id 

end 
else 
begin 

if @old_value o @panel_te$t_type_name 
begin 

exec cascade_update 'paneMesttype', @old_value, @panel_test__type_name,"PANELS",-l 
end 

update Corp Panel Test_Type 

set panel__test_type_name = @panel_test_type_name, 

panel_test_type_descr = @panel_test_type_descr where rec Jd - @rec_jd 

end 
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Procedure Name: sp_Edit_Corp_Panel_Type 

@panel__type_name varchar(SO), 
@panel_type_descr varchar(250), 
@rec_id numeric(8,0), 
@isDelete numeric( 1 ,0) 

AS 

declare @oid_yalue varchar(50) 

select @old_value = panel_type_name 
From corp_panel_type 
where rec_id = @rec_id 

If(@isDelete-l) 
begin 

exec cascade jipdate 'panel Jype*, @old_value/Undefmed7PANELS\ -1 
delete from Corp_Panel_Type where rec_id = @rec_id 
end 

else 
begin 

if @old_value o @panel_type_name 
begin 

exec cascade_update 'panel Jype\ @old_value, @panel_type_name, 'PANELS', -1 
~ exec corp_cascade_update 'panel Jype', @old_value,@panel_type_name 
end 

update Corp_Panel_Type 

set panel Jype_name = @panel_type_name, 

paneljype_descr = @panel_type_descr where rec_id = @rec_id 

end 



Integrated Marketing Technology 



9/27/00 3:38 PM 



Page 112 of 142 



IMT Subscription Marketing Reporting System 



Procedure Name: sp_Edit_Key 

@P_KEY_DESCR varchar(250), 

@MAIL_QTY_0 VERRIDE varchar( 1 0), -decimal(l 8,0), 

@Newstand_Sale numeric(18,0), 

@Newstand_Sale_Marker char(l), 

@list_cat_name varchar(250), 

@Iist_name varchar(250), 

@list_segment_name varchar(250), 

@LIST_COST_ACTUAL_CPM numeric(18,0), 

@list_cost_basis varchar(25), 

@list_cost_factor numeric(9,2), 

@merge_purge_qty numeric(9), 

@E_SET_NAME varchar (50), 

@R_SET_NAME varchar(50) , 

@panel_pkg varchar(50), 

@subtotal_flag varchar(6), 

@optional_effort_id Varchar(50), 

@rec_id numeric(8,0), 

@isDeIete numeric(l,0) 

AS 

If(@isDelete=l) 
begin 

declare 

@rPRODUCTJD mimeric(8,2), 

@rFULLJPROMO_KEY varchar(SO) 
-get pid and key for recycle key routine 
declare c_key_info_r cursor for 
select product_id, fulI_promo_key 
from keys where recjd = @rec_id 
open c_key_info_r 
fetch c_keyjnfo_r into 

@rPRODUCT_ID, 

@rFULL_PROMO_KEY 
close c_key_info_r 
deallocate c_key_info_r 

execute doRecycleKey @rPRODUCT_ID, @rFULL_PROMO_KEY 

delete from keys where rec_id = @recjd 

end 

else 

begin 

—validate data 

If not(@MAIL_QTY_0 VERRIDE > 0) 

select @MAIL__QTY_OVERRIDE=nuIl 
If (@E_SET_NAME = ,J 0") 

select @E_SET_NAME=nuil 
If (@R_SET_N AME - "O") 

select @R_SET_NAME=null 
-end data validation 
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update keys 

set P_KEY_DESCR=@P_KEY_DESCR, 
MAIL_QTY_OVERRIDE==@MAIL_QTY_OVERRIDE, 
Newstand_Sale = @Newstand_Sale, 
Newstand_Sale_Marker = @Newstand_SaIe_Marker, 
LIST_CAT_NAMEHsnuil(@Iist_cat_name;Undefined'), 

LIST_NAME=isnull(@Iist_name;Undeflned t ), 

LIST_SEGMENTJ4AME=isnull(@list_segment_name;Undefm^ 

LIST_COST_ACTUAL_CPM=@LIST_COST_ACTUAL_CPM, 

LISTCOST_BASIS - @list__cost_basis, 

list_cost_factor = @list_cost_factor, 

merge_purge_qty = @merge_purge_qty, 

e _ se L n ^ e= ^ snu ^K@ e _ se L n ^ e ' , Undefined , ) ) 

r_set_name=isnull(@r_set - name, , Undefuled , ), 

PANEL_PKG=isnulI(@panei_j)kg, , Undefined 1 ), 

subtotal Jlag=@subtotal_flag, 

optional_effort_id = @optional_efYort_id, 

date_assigned = getdate() 

where recjd = @rec_id 
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Procedure Name: sp_Edit_JPanel 



@panel_narne varchar(250), — 0 
@panel_date_start datetime, 1 
@panel Jype varchar^OX -2 
@panel_subtype varchar(50), ™ 3 
@test_type varchar(50), -4 
@paneljpkg varchar(50), -5 
@e__set_name varchar(50X —6 
@r_set_name varchar(50), ~7 
-@newstand_sale_markerchar(l), -8 
@login Varchar(50), -9 

@rec_id numeric(8,0), - 1 
@isDelete int - 1 

AS 

declare 

@IPRODUCT JD numeric(8,0), 
@IPANEL_NAME varchar(50), 
@1CAMP_NAME varchar(50), 
@1S0URCE_NAME varchar(250), 
@1SRC_CAT_NAME varchar(30), 
@lFull_promo_key varchar(25), 
@ikeys_product_id numeric(8,0), 
@1E_SET_NAME varchar(50), 
@1R_SET_NAME varchar(50), 
@lpanel_pkg varchar(50), 
@message Varchar(255), 
@src_indicator char(3), 
@grp_name varchar(50), 
@copies int, 

@copypanelname varchar(50) 

-get panel and other info for deletions from key table 
select @1PR0DUCT JD = PRODUCTJD, 

@1PANEL_NAME = PANEL_NAME, 
@1CAMP_NAME = CAMP_NAME, 
@1S0URCE_NAME = SOURCE_NAME, 
@1SRC_CAT_NAME = SRC_CAT_NAME, 
@le_set_name = e_set_name, 
@lr_set_name - r_set_name, 
@lpanei_pkg - panel_pkg, 
@src_jndicator = src_indicator, 
@grp_name = grp_name 

from panels 

where rec_id - @rec_id 



If(@isDelete=l) 
begin 

declare cokeys cursor for /* rlO 1 recordset - the main/reference one */ 
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select product_id, full_promo_key 
from keys 

where product jd = @lproduct_id 
and camp_name = @lcamp_name 
and SOURCE__NAME = @1S0URCE_NAME 
and panei_name = @lpanel_name 
and src_cat_name = @lsrc_cat_name 

open c_keys 

fetch c_keys into @lkeys_product_id, @lfuli_promoJcey 

while (@@fetch_status = 0) 
begin 

exec doRecycleKey @lkeys_product_Jd, @lfull_promo_key 

fetch cjceys into @ikeys_product_id, @lfuil_promojcey 
end 
close c_keys 
deallocate cjceys 

delete from keys 

where productjd = @1PR0DUCTJD 
and src_cat_name - @1SRC_CAT_NAME 
and source_name = @1S0URCE_NAME 
and camp_name = @lCamp_name 
and panel_name=@lPANEL_N AME 

delete from panels 
where recjd - @rec_id 

-close c_panel_info2 

--deallocate c_panel_info2 
set ©message = 'Panel:' + @1PANEL_NAME + \Campaign:' + @1CAMP_NAME + \Source:' + 
@1S0URCE__NAME + ',Src_cat:' + @lsrc_cat_narne + *,delete applied to panel and keys' 
exec spjoginfo ©Iproduct jd, ©login, 'Delete Panel', ©message 

end 

if(@IsDelete=0) 

begin 

—declare 

-get expense and revenue set names for pass down if blank 

- NOT USING ANYMORE, this stuff should be defined when keys are assigned 

select @lE_Set_name = E_SET_NAME, 
@lr_Set_name = R_SET_NAME 

- from campaigns where product_id - @1PR0DUCT_ID 

-and SRC_CAT_NAME = @1SRC_CAT_NAME and SOURCE_NAME = @iSOURCE_NAME and 
CAMP_NAME = @1CAMP_NAME 

PRINT 'e set name-' + @e_set_name + '-e set name + @1E_SET_NAME + '-' + CAST( 
@lPRODUCT_ID as varchar) 

update keys 

set panel_name - @panel_name, 

panel_type=isnull(@panel_type, , Undefined') ) 

panel_subtype=isnull(@panel_subtype,'Undeflned , ), 
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test^type^isnullC^es^type^Undefined'), 
panel j)kg=isnull(@panel_pkg, , Undefined'), 
panel_date_start=@panel_date_start 

- newstand_sale_marker = @newstand_sale_marker 

- e_set_name :=: isnulI(@e_set_name J @IE_SET_NAME), 

- r_set_name=isnull(@r_set_name,@iR_SET_NAME) 

where (panel_name + ':*+ camp_name +V+ src_cat_name +•:'+ source__name + Y + 
cast(product_id as varchar) ) 

= (select panel_name + , : , + camp_name+Y+ src_cat_name +Y+ sourcejiame + 
cast(product_id as varchar) from panels where rec_id = @rec_id ) 
if (@le_set_name o @e_set_name) 
begin 

update keys 
set e_set_name = @e_set_name 
-- panel_type= : isnull(@panel_type, , Undefined , ), 

- panel_subtype=isnulI(@panel_subtype;Undefined'), 

- testJype=isnuiI(@testjype/UndefmedO, 

- panel_offer=@panel_offer, 

- panel_offer_price=@panel_offerj>rice, 
panel_pkg= s isnull(@panelj)kg, , UndefinedO ) 
panel_premium=@paneljpremium, 
panel_date_start^@panel_date_start, 
panel_date_end=@panel_date_end 

" r_set_name=isnull(@r_set_name,@lR_SET_NAME) 
where e_set_name - @le_set_name and 

(panel_name + •;'+ camp_name +':'+ src_cat_name +':'+ cast(product_id as varchar) ) 

= (select panel_name +Y+ camp_name +':'+ src_cat_name +':'+ cast(product_id as 

varchar) 

from panels where rec_id = @rec_id ) 

end 

if (@lr_set_name o @r_set_name) 
begin 

update keys 

set r_set_name = @r_set_name 
paneI_type^snull(@panel - type 5 TJndefined , ) J 
paneI_subtype=isnull(@panel_subtype, t Undeflned , ), 
-- test_type=isnull(@test_type, ( Undefined , ) ) 

- panel_offer=@panel_offer } 

« panel_offer_price=@panel_offer_price, 

panel_pkg=isnull(@panel_pkg,XJndefined t ) ) 

- paneljpremium-@panel_premium, 

- panel_date_start=@panel_date_start, 
panel_date_end=@panei_date_end 

r_set_name=isnull(@r_set_name,@lR_SET - NAME) 
where r_set_name = @lr_set_name and 

(panel_name + V+ camp_name +V+ src_cat_name +':'+ 
source_name + Y 4- cast(product_id as varchar) ) - 
(select panel_name +Y+ camp_name +*:*+ src_cat_name +':'+ 
source_name + ':' + cast(product_id as varchar) 
from panels where rec_id = @rec_id ) 

end 

if (@IPanel_pkg o @panel_pkg) 
begin 
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update keys 

set Panel_Pkg = @panel_pkg 
panel_type=isnuIl(@paneI__type/Undefined t ), 
panel_subtype=isnull(@panel_subtype J , Undeflned , ), 
test_type=isnull(@test_type > t Undeflned , ), 
panelj)ffer=@panel_offer, 
panel_ofFer_price=@panel_offer_price, 
paneljkg^isnul^paneljkgjTJndefuied 1 ), 
panel jremium :== @panel_j)remiurn 5 
panel_date__start=@panel_date_start, 
panel_date_end=@panel_date_end 

r_set_nameHsnulI(@r_set_name,@iR_SET_NAME) 
where Panel_Pkg = @lpanel_pkg and 

(panel_name + V+ camp_name +':•+ src_cat_name +':'+ 
sourcejiame + ':' + cast(productjd as varchar) ) = 
(select panel_name +':'+ camp_name +':'+ src_cat_name +':'+ 
source_name + Y + cast(product_id as varchar) 
from panels where recjd = @rec_id ) 

end 



update panels 

set paneljiame = @panel_name, 

panel_type=isnull(@panel_type ) TJndefmed , X 

panel_subtype=isnuU(@panel_subtype,TJndeflned , ), 

test_tyrJeHsnull(@test_type;Undefined , ), 

panel_pkg==isnull(@panel_Jpkg;Undefuled , ), 

panei_date_start=@panel_date_start, 

e_set_name= : isnull(@e_set_name,@lE_SET_NAME) ) 

r__set_name=isnull(@r_set_name,@lR_SET_NAME) 

newstand_sale_marker = @newstand_sale_marker 

where rec_id = @rec_id 



if@lpanel_nameo @panei_name 
BEGIN 

set ©message = "Old Panel:* + @1PANEL_NAME + '.New Panel:' + @Panel_name + 
'.Campaign:' + @1CAMP_NAME + •.Source:' + @1S0URCE_NAME + \Src_cat:* + 
@lsrc _cat_name + '.edit applied to panel and keys 1 



END 
ELSE 
BEGIN 

set ©message - 'Panel: 1 + @PANEL_NAME + 
'.Campaign:' + @ICAMP_NAME + '.Source: 1 + @1S0URCE_NAME + *,Src_cat:' + 
@lsrc_cat_name + '.edit applied to panel and keys' 

end 

exec spjoginfo @IproductJd, @iogin, 'Edit Panel', ©message 

end 

if (@IsDelete=2) -then copy existing panel 
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begin 

set @copypanelname = 'Copy of 1 + @panei_name 

-Get number of next copy 
select @copies = (count(*) + 1 ) 
from panels 

where paneljname like @copypanelname 
and camp_name = @lCamp_name 
and src_cat_name = @lsrc__cat_name 
and product_jd - @Iproduct_id 
and source_name = @lsource_name 
if ©copies < 10 set @copypanelname = "Copy " + cast(@copies as varchar(i)) + " of" 
else set @copypanelname = "Copy " + cast(@copies as varchar(2)) + " of " 

set @panel_name = @copypanelname + @panel_name 
insert into panels (paneljiame 

, panel_type 

, panel_subtype 

, testjype 

, paneljpkg 

, panel_date__start 

, e_set_name 

j r_set_name 

, product_id 

, campjname 

, sourcejiame 

, src_cat_name 

, src_indicator 

, grp_name) 

values 

(@panel_name 

, isnull(@panel_type,'Undefmed') 
, isnuIl(@panel_subtype,TJndefuled , ) 
, isnull(@testJype/Undefined') 
, isnull(@panel jkg^ndefined 1 ) 
, @pane l_date_start 

, isnull(@e_set_name,@IE - SET_NAME) 

, isnuli(@r_set_name,@lR_SET_NAME) 

, @1PR0DUCT_ID 

, @1CAMP_NAME 

, @1S0URCE_NAME 

, @1SRC_CAT_NAME 

, @srcjndicator 

, @grp_name 

) 
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Procedure Name: sp_edit_prior_Source_desc 



@prior_source_identifier char (2) 
, @prior_source_desc varchar (20) 
, @billing_cur_src_desc VARCHAR(255) 
, @modeI_source_cat varchar(50) 
, @model__source varchar(50) 
, @agent_src_desc varchar(50) 
, @valid_from_date datetime 
, @valid_to_date datetime 
, @rec_id numeric(8,0) 
, @isDeIete int 

AS 

declare @old_value varchar(50), @old_product_id numeric(9) 

select @old_value - prior_source_identifier, 
@old_product_id = product Jd 
From prior_source_desc 
where rec_jd = @rec_id 

If(@isDelete=l) 
begin 

exec cascade_update ^rior_source_identifier', ©old^valueZ-VKEYS'^oldjroductJd 
delete from prior_source_desc where rec_id - @rec_id 

end 

else 

begin 

exec cascade_update , prior_source_identifier , ) @oId_value>7Est_max_effort\ 

@o!d__product_id 

update prior_source_desc 

set -prior_source ^identifier - @prior_source_identifier , 

prior_source_desc = @prior_source_desc 

, billing_cur_src__desc = @billing_cur_src_desc 

, valid_jrom_date = @valid_from_date 

, valid_to_date = @valid_to_date 

, agent_src_desc = @agent_src_desc 

, modei_source = @model_source 

, model_source_cat = @model_source_cat 

where rec_id = @rec_id 

end 
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Procedure Name: sp_Edit_Prod_Camp_Status 

@camp_status_name varchar(20), 
@camp_status_descr varchar(250), 

@rec_id numeric(8,0), 
@isDelete numeric(l,0) 

AS 

Declare @old_value VARCHAR(255), @product_id numeric(9) 

select @old_value = 

camp_Status_name, 

@product_id = product_id 
FROM prod_camp_starus 
WHERE rec_id - @rec_id 



If(@isDelete-l) 
begin 

exec cascade_update , camp_statusjiarne 1 , @old_vaiue, 'Undefined', "CAMPAIGNS", @product_id 

delete from Prod_Camp_Status where rec_id = @rec_id 
end 
else 
begin 

if @old_value o @camp_status_name 
begin 

exec cascade_update 'camp_status__name', @old_value, @camp_status__name, 'CAMPAIGNS', 
@product_id 

- exec prod_cascade_update__w_camp l camp_status_name' > @old_value, @camp_status_name , 
@product_id 
end 



update Prod__Camp_Status 

set camp_status_name = @camp_status__name, 
camp_status_descr = @camp_status_descr where rec_id = @rec_id 

end 
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Procedure Name: sp_Edit_Prod_Camp_Type 

@camp_type_name varchar(20), 
@camp_type_descr varchar(250), 
@rec_id numeric(8,0), 
@isDelete numeric(l,0) 

AS 

Declare @old_value VARCHAR(255), ©product jd numeric(9) 

select @old_yalue = 

camp_type_name, 

@product_id = product_id 
FROM prod_camp_type 
WHERE recjd = @rec_id 

If(@isDelete=l) 
begin 

exec cascade_update 'campjype', @old_value, 'Undefined*, 'CAMPAIGNS*, @product_id 
- exec prod_cascade_update_w_camp 1 campjype\ @old_vaiue, Undefined 1 , @product_id 

delete from Prod_Camp_Type where recjd = @rec_id 
end 
else 
begin 

if @old_value o @camp_type_name 
begin 

exec cascade_update *camp_type_name\ @o!d_value, @camp_type_name, 'CAMPAIGNS', 
@productjd 

exec prod_cascade_update_w_camp 'campjype', @old_value, @camp Jype_name, @productJd 

end 

update Prod_Camp_Type 

set camp_type_name = @camp_type_name, 

camp_type_descr = @camp_type_descr where rec_id = @rec_id 

end 
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Procedure Name: sp_Edit_ProdJE_Set 



@product_id numeric(8, 0) , 
@e_set_name varchar (50) , 
@print_cost numerical 1 , 3) , 
@print_cpm_cpu varchar (10) , 
@print_basis varchar (20) , 
@merge_purgenumeric(ll,3) , 
@merge_cprn_cpu varchar (10) , 
@merge_basis varchar (20) , 
@ltr_costnumeric(ll, 3) , 
@ltr__cpm_cpu varchar (10) , 
@itr_basis varchar (20) , 
@postage_out_cost numeric(l 1,3), 
@postage_out_cpm_cpu varchar (10) , 
@postage_out_basis varchar (20) , 
@postage_m_cost numerical, 3) , 
@postage_in_cpm_cpu varchar (10) , 
@postage_in_basis varchar (20) , 
@premium_cost numeric(l 1,3), 
@premium_cpm_cpu varchar (10) , 
@premium_basis varchar (20) , 
@badpay_cost numeric(l 1,3), 
@badpay_cpm_cpu varchar (10) , 
@badpayj>asis varchar (20) , 
@billing_cost numeric(l 1,3), 
@billing_cpm_cpu varchar (10) , 
@billing_basis varchar (20) , 
@subs_svc_costs numeric(l 1,3), 
@subs_svc_cpm_cpu varchar (10) , 
@subs_svc_basis varchar (20) , 
@exp_other_costsnumeric(ll,3) , 
@exp_other_cpm_cpu varchar (10) , 
@exp_other_basis varchar (20) , 
@rec_id numeric(8,0), 
@isDelete numeric(i,0) 

AS 

Declare @oId_value VARCHAR(255), @myj>roductjd numeric(9) 
declare @e_set_id numeric(9) 

select @oId_value = 
e_set_name, 

@my_product_id = product_id 
FROM expense_sets 
WHERE rec_id = @rec_id 

If(@isDelete=l) 
begin 

exec cascade_update , e_set_name , , @old_vaiue, 'UndefinedYCAMPAIGNS', @product Jd 
delete from Expense_sets where rec_id = @rec_id 
end 
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else 
begin 

if @old_va!ue o @e_set_name 
begin 

set @e_set_id = -1 
select @e_set_id = rec_id 

from expense_sets 

where e_set_name = @e_set_name 

and product_id = @product_id 

if @e_set_id = -1 exec sp_Add_Prod_E_Set -Create New Record, set everything to new e set and 
delete old one 

@product_id, @e_set_name, @print_cost, @print_cpm_cpu, @print_basis, 
@merge_purge, @merge_cpm_cpu, @merge_basis 

, @ltr_cost, @ltr_cpm_cpu, @ltr_basis, ©postage j>ut_cost, @postage_out_cpm_cpu, 
@postage_out_basis, @postage_in_cost, ©postage Jn_cpm_cpu 

, @postage_in_basis, @premiurn_cost, @premium_cpm_cpu, @premium_basis, 
@badpay_cost, @badpay_cpm_cpu, @badpay_basis, @biIling^_cost 

, @billing_cpm_cpu, @billing_basis, @subs_svc_costs, @subs_svc_cpm_cpu, 
@subs_svc_basis, @exp_other_costs, @exp_other_cpm_cpu 

, @exp_other_basis 

exec cascade_update *e_set_name', @old_value, @e_set_name, , CAMPAIGNS' ) @product_id 
delete from expense_sets where rec_id = @rec_id 

end 
else 

update expense__sets 

set e_set_name = @e_set_name , 
print_cost = @print_cost , 
print_cpm_cpu = @print_cpm_cpu , 
print_basis - @print_basis , 
merge_purge = @merge__purge , 
merge_cpm_cpii = @merge_cpm_cpu , 
merge_basis = @merge_basis , 
ltr_cost = @ltr_cost , 
ltr_cpm_cpu = @ltr_cpm_cpu , 
itr_basis = @itr_basis, 
postage_out_cost = @postage_out_cost , 
postage j)ut_cpm_cpu =@postage_out_cpm_cpu , 
postagejout J>asis =@postage_out__basis , 
postage_jn_cost =@postage_in_cost , 
postage_in_cpm_cpu =@postage_in_cpm_cpu , 
postage_inJbasis = @postage_in_basis , 
premium_cost = @premium_cost , 
premium_cpm_cpu = @premium_cpm_cpu , 
premium_basis = @premium_basis , 
badpay_cost = @badpay_cost , 
badpay_cpm_cpu = @badpay_cpm_cpu , 
badpay_basis - @badpayjbasis , 
billingjcost = @billing__cost , 
billing^cpn^cpu = @billing_cpm_cpu , 
billing_basis = @billing_basis , 
subs_svc_costs = @subs_svc_costs , 
subs_svc_cprn_cpu = @subs_svc_cpm_cpu , 
subs_svc_basis = @subs_svc_basis , 
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exp_other_costs = @exp_other_costs , 
exp_other_cpm_cpu = @exp_other_cpm_cpu , 
exp_other_basis = @exp_other_basis 
where rec jd = @rec_id 

end 
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Procedure Name: sp_Edit_Prod_List_Cat 



@name varchar(250), 
@descr varchar(250), 
@rec_id numeric(8,0), 
@isDelete numeric(l,0) 

AS 

Declare @old_value VARCHAR(255), 
@product_id numeric(9) 

select @otd_value = 

list_cat_name, 

@product_id = product_id 
FROM list_cats 
WHERE rec_id = @rec_id 

If(@isDelete=l) 
begin 

exec cascadejipdate f LIST_CAT_NAME', @old_value, Undefined 1 , "KEYS 1 ', ©product jd 
delete from List_Cats where recjd - @rec_id 

end 
else 
begin 

if @name o @old_value 
begin 

exec cascade_update 'LISTJZATJNAME', @old_value, @name, "KEYS", @product_id 
end 

update List_Cats 

set List_Cat_name = @name, 

List_Cat_descr = @descr where rec Jd = @rec Jd 

end 
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Procedure Name: sp_Edit_Prod_List_Name 



@name varchar(250), 
@descr varchar(250), 
@rec_id numeric(8,0), 
@isDe!ete numeric(l,0) 



Declare @old_vaiue VARCHAR{255), @product_id numeric(9) 

select @old_value = 
list_name, 

@product_id = product_id 
FROM list_names 
WHERE rec_id = @rec_id 



If(@isDelete=l) 
begin 

exec cascade_update 'LISTNAME*, @old_value, 'Undefined', "KEYS", @product_jd 
delete from ListJNames where recjd = @rec_id 

end 
else 
begin 

if @name o @old_value 
begin 

exec cascade_update 'LIST_NAME f , @old_value, @name, "KEYS", @product_id 
end 

update List_NAMES 

set List_name = @name, 
List_Name_description = @descr 
where rec Jd = @rec_id 

end 
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Procedure Name: sp_Edit_Prod_List Segment 



@name varchar(250), 
@descr varchar(250), 
@rec_id numeric(8,0), 
@isDelete numeric(l,0) 

AS 

Declare @old_value VARCHAR(255), 
@product_id numeric(9) 

select @old__value - 

list_segment_name, 
@product_id = product_id 
FROM iist_segments 
WHERE recjd = @rec_id 

If(@isDelete«l) 
begin 

exec cascade_update 'LIST_SEGMENTJNAMF, @old_value, •Undefined 1 , "KEYS", @product_id 

delete from List_Segments where rec_id = @rec_id 
end 
else 
begin 

if @name o @oId_value 
begin 

exec cascade_update 'LIST^SEGMENT^NAME 1 , @old_value, @name, "KEYS", ©product Jd 
end 



update List_Segments 

set List_Segment_jiame - @name, 

List_Segment_description = @descr where rec_id = @rec_id 

end 
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Procedure Name: sp_Edit_Prod_PaneMPackage 



@package_name varchar(50), 
@package_description varchar(250), 
@rec_id numeric(8,0), 
@isDeiete numeric(l,0) 

AS 

If(@isDelete=l) 
begin 

delete from prod_panel_package where recjd = @rec_id 

end 

else 

begin 

update prod_panel_package 

set package_name = @package_name, 

package_description = @package_description where recjd = @rec_id 

end 
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Procedure Name: sp_edit_Prod_R_Set 

@product_id numeric(8, 0), 
@r_set_name varchar (50) , 
@subs_revenue numeric(l 1, 3) , 
@subs_cpm_cpu varchar (10) , 
@ad_revenue numeric(l 1, 3), 
@ad_cpm_cpu varchar (10), 
@listrental_revenue numeric(l 1,3), 
@listrental_cpm_cpu varchar (10), 
@other_revenue numeric(l 1, 3), 
@other_cpm_cpu varchar (10), 
@rec_id numeric(8,0) s 
@isDelete numeric(l,0) 

AS 

Declare @old_value VARCHAR(255), @my_product_id numeric(9) 

select @old_value = r_set_name, 

@my_product_id = product_id 
FROM revenue_sets 
WHERE recjd = @rec_id 

If(@isDelete=l) 
begin 

exec cascadejipdate Yrctjiame*, @old_value, 'Undefined'/CAMPAIGNS*, @product_id 

delete from Revenue_sets where recjd = @rec_id 
end 
else 
begin 

if @old_vaiue o @r_set_name 
begin 

exec cascade update 'r_set_name', @old_value, @rj>et_name /CAMPAIGNS', @product_id 

end 

update revenue_sets 
set product_id ~@product_id , 

r_set_name - @r_set_name , 

subs_revenue = @subs_revenue , 

subs_cpm_cpu =@subs_cpm_cpu , 

ad_revenue = @ad_revenue, 

ad_cpm_cpu = @ad_cpm_cpu, 

listrental_revenue= @listrental_revenue, 

listrental_cpm_cpu « @listrental_cpm_cpu , 

otherj-evenue = @other_revenue, 

other_cpm__cpu =@other_cpm_cpu 
where rec__id = @rec_id 
end 
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Procedure Name: sp_Edit_Source 



@source_name varchar(250), 
@src_indicator varchar(10) } 
@login Varchar(50), 
@rec_id numeric(8 } 0), 
@isDelete numeric(l,0) 

AS 



If(@isDelete=l) 
begin 

delete from source where rec_id - @recjd 
end 
eise 
begin 
declare 

@PRODUCT_ID numeric(8,0), 
@src_cat_name varchar(50), 
@old_source_name varchar(30), 
@old_src_ind varchar(3), 
©message VARCHAR(200) 
SELECT ©PRODUCT JD = Product Jd , 
@src_cat_name = src_cat_name, 
@o!d_source_name = source__name , 
@old_src_ind = src_indicator 

FROM source where rec__id =@rec_id 

IF ©sourcejiame o @old_source_name or @src_indicator o @old_src_ind 
BEGIN 

set ©message = 'Change applied to Panel, Campaign and Key levels as well as Source' 

UPDATE campaigns 

SET sourcejiame = ©sourcejiame, 

src_indicator = @src_jndicator 
WHERE Productjd = ©Productjd 

and src_cat_name = @src_cat__name 

and sourcejiame = @old_source__name 

and src_indicator = @old_src jnd 
UPDATE Panels 

SET source_name = ©sourcejiame, 

srcjndicator = ©srcjndicator 
WHERE Product jd = ©Productjd 

and src_cat_name = @src_cat_name 

and source_name = @oid_sourcejiame 

and src_indicator = @old_src jnd 
UPDATE keys 

SET source_name = ©sourcejiame, 

srcjndicator = @src_indicator 
WHERE Productjd = ©Productjd 

and srcjrat jiame = @src__cat__name 
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and source_name = @old_source_name 
and src_indicator = @oId_src_ind 

update source 

set sourcejiame = @source_name, 

src_indicator = @src_indicator where rec_id = @rec_id 

exec sp Joginfo @product_id, @login, 'Edit Source', @message 
end 
end 
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Procedure Name: sp_edit_Source_description 

@u_source_name varchar(250), 
@u_source_description varchar(250), 
@rec_id nurneric(8,0), 
@isDelete numeric(l,0) 

AS 

If(@isDelete=l) 
begin 

delete from Source_descriptions where rec_id = @rec_id 

end 

else 

begin 

update Source_descriptions 

set u_source_name = @u_source_name, 

u_source_description = @u_source_description where recid — @rec_id 

end 
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Procedure Name: spJLoglnfo 



@product_id varchar(250), 
@iogin varchar(50), 
— log_timestamp 
@action varchar(50), 
@action_description varchar(100) 

As 

insert into logs (product _idJoginJogJimestamp,action,action_description) values 
(@productJd,@login,getdateO,@action ) @action_description) 
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Procedure Name: spJRemoveDuplicatelOlKeys 



@pid numeric(9) 
AS 

declare @rl01_key varchar(lO), @select_date sma!ldatetime 3 @product_id numeric(8,0), @rct_rec_num 
decimal(9),@rl01_reorg_date smalldatetime,@keyCount numeric(8,0) 



declare c_rl01dup cursor for 

select product_id,rl01_key, rl01_reorg_date, count(rlOlJcey) as cnt,max(rct_rec_num) as maxRecNum 
from rl01_flow where productjd = @pid group by product_id,rl0i_key,rl01_reorg__date order by 
product_id, cnt desc, r!01_key 

open cjlOldup 

fetch cjrlOldup into <^roductjd,@rl01 Jkey,^ 
while (@@fetch_status = 0 and @KeyCount > 1 ) 
begin 

delete from rl01_flow where product_id = @product_id and rl01_reorg_date = 
@r!01_reorg_date and rl01_key = @rl01_key and rct__rec_num < @rctjrec_num 
fetch c_rl01dup into ©product Jd,@rl01 Jcey,^ 
end 

close cjrlOldup 
deallocate c_r 1 0 1 dup 
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Procedure Name: sp_RemoveDuplicate401Keys 



@pid numeric(9) 
AS 

declare @r401 Jeey varchar(10), @select_date smalldatetime,@product_id numeric(8,0), @r401_rec_num 
decimal(9),@r401_reorg_date smalldatetime,@keyCount numeric(8,0) 



declare c_r40 ldup cursor for 

select product_id,r401 Jeey, r40I_reorg_date, count(r401_key) as cnt,max(r401 j-ecjium) as maxRecNum 
from r401 Jlow where product Jd = @pid group by product_id,r40 1 Jcey,r401_reorg_date order by 
product Jd, cnt desc, r401 Jeey 

openc_r401dup 

fetch c_r401dup into @productjd,<^401 Jcey,<^^^ 
while (@@fetch_status ~ 0 and @KeyCount > 1) 
begin 

delete from r40 l_flow where productjd = @product_id and r40 l_reorg_date = 
@r401_reorg_date and r401 Jeey = @r401_key and r401_rec_num < @r401_rec_num 
fetch c_r401dup into @producHd,(^401Jcey,(^40 
end 

close c_r401dup 
deallocate c_r401dup 
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Procedure Name: sp_UpdateCamp_Statuses 



@product_id numeric(9), 
@camp_status__name varchar(20), 
@camp_status_descr varchar(250), 
@actionParam varchar(20), 
@kname varchar(20) 

AS 

If (@actionParam- AddRec') 
begin 

insert into camp_statuses (productjd, camp_status_name, camp_status_descr) values (@productjd, 

@camp_status_name, @camp_status_descr) 

end 

else 

If ((^ctionParam- EditRec') 
begin 

update camp_statuses set camp_status_name = @camp_status_name, camp_status__descr - 
@camp_status_descr 

where product_id - @product_id and camp_status_name = @kName 
end 
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Procedure Name: spJJpdateCamp_Types 



@product_id numeric(9), 
@camp_type varchar(50), 
@camp_type_descr varchar(250), 
@actionParam varchar(20), 
@kname varchar(20) 

AS 

If (@actionParam- AddRec') 
begin 

insert into campjypes (product Jd, campjype, camp_type_descr) values (@product_id, @camp_type, 

@camp__type_descr) 

end 

else 

If (@actionParam- EditRec 1 ) 
begin 

update campjypes set camp Jype = @campjype, camp_type_descr - @camp_type_descr 

where product_id = @product_id and camp Jype = @kName 

end 
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Procedure Name: sp_UpdatePanel_SubTypes 

@product_id numeric(9), 
@panel_subtype varchar(50), 
@panei_subtype_descr varchar(250), 
@actionParam varchar(20), 
@kname varchar(20) 

AS 

If (@actionParam- AddRecO 
begin 

insert into p_subjypes (product Jd, panel_subtype, panei_subtype_descr) values (@product_id, 

@panel_subtype, @panel_subtype_descr) 

end 

else 

If (@actionParam- EditRec') 
begin 

update p_subjypes set panel ^subtype = @panel_subtype, panel_subtype_descr = @panel_subtype_descr 

where productjd = @product Jd and panel_subtype = @kName 

end 
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Procedure Name: spJJpdatePaneiTestTypes 

@product_id numeric(9), 
@test_type varchar(50), 
@test_type_descr varchar(250), 
@actionParam varchar(20), 
@kname varchar(20) 

AS 

If (@actionPai*am- AddRec') 
begin 

insert into pjestjypes (productjd, testjype, test_type_descr) values (@product_id, @test_type, 

@test_type_descr) 

end 

else 

If (@actionParam- EditRec') 
begin 

update pjest_types set test_type = @test_type, test Jype_descr = @test_type_descr 

where productjd = @product_id and testjype = @kName 

end 
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Procedure Name: sp_UpdatePaneI_Types 

@product_id numeric(9), 
@panel_type varchar(50), 
@panel_type_descr varchar(250), 
@actionParam varchar(20), 
@kname varchar(20) 

AS 

If (@actionPararn- AddRec') 
begin 

insert into p_types (product_id, panel_type, panel_type_descr) values (@product_id, @panel_type, 

@paneljype_descr) 

end 

else 

If (@actiortf aram='EditRec') 
begin 

update p_types set panel_type = @panel_type, panel_type_descr = @panel_type_descr 

where product_id = @product_id and panel_type = @kName 

end 
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Procedure Name: spGetRPTList 



@src_cat_name varchar(30), 
@src_sufa_cat varchar(50) 

AS 

SELECT report Jd } rptjiame, rptjlescription, location, rpt_filters 
FROM rpt_cats 

WHERE srcj:at_name = @src_cat_name 
AND src_sub_cat = @src_sub_cat 
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IMT Reporting 

ABOUT IMT 



Integrated Marketing Technology is an application service provider (ASP) founded in 1993 to be the premier 
provider of integrated marketing consulting and database services to subscription and membership-based 
marketing companies. IMTs mission is to allow businesses to make faster, more informed, and more strategic 
decisions through its sophisticated technology tools and marketing services. 

^Information at Your Fingertips" 

We provide actionable marketing information directly to the people who have their finger on the pulse of the 
business, Ifs the only way to turn raw data into knowledge, and if s the key to our company's, and our client's, 
success, IMTs systems allow instant, real-time access to critical corporate data and analysis - from high-level 
assessment of sales channels to detailed evaluation of individual campaigns or lists. 

A flexible and powerful web-based application requiring no specialized hardware or software, IMT Reporting offers 
companies accurate and consistent analysis of their marketing initiatives. IMT Reporting provides highly 
segmented, dearly defined marketing analysis at almost any level - from source channel to campaign to list. 

The Benefits: 



• Proven, insightful customer acquisition and retention analysis 

• Improved Lifetime customer value reporting 

• Channel ranking and analysis based on order volume and profitability 
« Multi-contract customer depletion analysis 

• Consistent interpretation of data 

• Cross-product, cross-organizational reporting 

• Full historical marketing information and analysis 

• Improved marketing ROI 

• Dramatic cost savings 



Through IMTs Internet-based reporting products, marketers have more control over when they receive and 
disperse critical marketing data. Businesses can decide whether they want to receive daily or weekly data feeds 
from order processing and fulfillment operations systems. Whatever frequency they choose, they will get this 
information in real time. 
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~ " SYSTEM REQUIREMENTS 

PC Computers 

• An Intel* i486- or Pentium* processor - based computer (Pentium recommended), Microsoft Windows 95, 
Windows 98, or Windows NT* 4,0 with service Pack 3 or later, 16 MB of RAM on Windows 95 and 
Windows 98, 24 MB of RAM for Windows NT (32 MB recommended) and Hard drive with at least 75 MB of 
available space. 

Mac Computers 

• Apple Power Macintosh computer, Apple System Software version 8.6 or later, 6 MB of RAM (12 MB 
recommended) and Hard Drive with at least 75 MB of available space. 

Other Hardware Requirements / Recommendations 

• Monitor - Size: 15" or larger (recommended), Color: 256 or higher (Le.16 bit), Screen Area: 800 x 600 
(recommended 1024 x 768), Keyboard - American Standard 101 key, Pointing Devices - Mouse or Track 
ball, Local or Networked Laser Printer - Paper Size: 8 V2 x 11 * + Orientation: Landscape 

Recommended Software 

• Email program - communicate with aientServices@IMTnetwork.com & Support@IMTnetwork.com 

• Spread Sheet program - export data from IMT Reporting (i.e. charts) 

Internet Connection 

• Via Modem: Dial-up 56K (minimum) 

• Via DSL / ISDN / T-l = Local Area Network (recommended) 

Browser Check and Installation Internet Explorer (IE) 

• IMT Reporting is best viewed through Internet Explorer 5.0, available for both PCs and Macintosh 
computers. The system requirement for loading Explorer 5.0 is as follows: 

• NOTE: I.EAO, will work with basic features 

Step 1 - Check your system for Internet Explorer 5.0, confirm the version you're running, 

• Start Explorer 

• Click on Help located on the menu bar 

• Click on About Internet Explorer and a new window will open 

• Verify the version number. 

• If the versions number is 5.0 or later, then go to Step 3. 

Step 2 - If the version number is less than 5.0, or if you do not have Explorer installed on your 
computer, then go to Microsoft" s web site and follow the upgrade or installation instructions, or contact your IT 
department to have Internet Explore 5.0 installed. 

< http://www.microsoft.com/windows/ie/default.htm > 

Step 3 - Configuring Internet Explorer 5.0 

• Start Explorer 

• Click on Tools located on the menu bar 

• Click on Internet Options and a new window will open 

• Click on Settings for Temporary Internet Files located on the General Tab 

• Click on Every visit to page located below Check for newer versions of stored pages 

• Click on OK 

• Click on Apply then OK on the Internet Options window 

• Test your access by going to < http://wwwJMTnetwork.com/ > and logging onto the system by clicking 
Client Center, and enter username and password (case sensitive) to successfully log onto the system. 



© 1994 - 2000 Integrated Marketing Technology, Inc. 
www.imtnetwork.com • 4 1 5.3 52.2370 



5 



Administration 



OVERVIEW 

IMT Reporting has two main components: Admin and Reporting. Admin generally refers to the 
administration processes, such as assigning promotion keys to specific sources, campaigns and panels. 

What You Need to Get Started? 

• Authorize IMT to accept data feeds weekly from your fulfillment house (FTP recommended). 

♦ Gather all documentation and materials normally required to prepare detailed reports: 

o Source Names (source ID) 

o Campaign: Names, Start Dates, Types and Expense detail 
o Panel: Names, Start Dates, Test Types and Package Types 
o Key: Mail Qty, List Names 



Data is not available until an order is received by your fulfillment house and has activated the Keys; you need to be aware of 
NOTE: this timing if you want to assign keys. When keys are not active, you can set up the rest of the campaign so that when they 
do become active you can assign them and begin using IMT Reporting immediately. 



Develop a Strategy 

13 It is recommended that you map out how you will organize, define and name your sources, campaigns and panels 

: 3 before using Admin. Organizing this before hand will make for consistent reporting. 

!3 While adding records, you will be required to input certain fields (i.e. Campaign Name). Other fields may be 

; 3 optional (i.e. Campaign Type). The definition of a campaign may also vary depending on the source of business 

|l or the reporting requirements. Your choice of optional fields to populate may depend on the source of business. 

|P Generally, the more fields you populate, the richer your reporting capabilities. 

Familiarize yourself with IMT Reporting 

^ Before getting started, you might want to practice navigating the system. This will help you to better understand 
the database, and make administration of your campaigns easier and more intuitive. It is helpful to understand 
;3 how IMT organizes information into hierarchical groups as follows: 

Ig 1. GROUP (i.e. Company Division) 

2. PRODUCT (i.e. Magazine Title or Product Name) 

3. SOURCE CATEGORY (i.e. DTP, etc.) 

4. SOURCE (Le. Inserts, etc) 

5. CAMPAIGN NAME (i.e. 2000-01) 

6. PANEL NAME (i.e. 01. Sub 12/$12) 

7. PROMOTION KEY (i.e. 41B2_12/01/2000) 

One-on-One Walk-Through of IMT Reporting 

If you want to see examples of campaigns that are already setup in the system, you might want to look at IMTs 
demo database. For a one-on-one walk-through of IMTs demo database, please request a demo username and 
password at: ClientServices@imtnetwork.com r name the subject of your email: demo request or call us at 
415.352.2370. 
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ACCESS 



Step - 1: Open your Browser and input IMT's URL 
(Internet Home Page address) (NOTE: once you are 
viewing the home page, right dick your mouse and 
select Create Shortcut): 



Step - 2: Click Client Center to reach secure log in 
box: 



Step - 3: Input your Username & Password: 
(NOTE: case sensitive; i.e. a or A) 



Step - 4: Click on Administration to begin building 
and managing campaigns: 



Step - 5: Select Product Group (i.e. Business): 



Step - 6: Select Product (i.e. The New Economy): 



'3 IMT Network - Microsoft Internet Explorer . 


Hii 


Kill 


http://www.imbietwork.com/ 






nmmmm 




; Welcome to IMT Reporting 





§ |The New Economy 
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IMT Tool Bar Features 



Integrated Marketing Technology, Inc^ 




Once you have accessed IMT Reporting, you will now be able to view the Tool Bar (located across the top of the 
screen). Before building campaigns, you should familiarize yourself with the Tool Bar features and understand 
how they will assist with the administration and reporting processes. 



Fast Find - Allows you to navigate the database using 
a drill-down tree. 

• Drill-down into Product Group, Product, 
Source Category, Source, Campaign, and Panel 
by clicking on ► to open the next table below. 

• Open view of table by clicking table name 
(i.e. DTP to open tables in DTP) 



Search - Allows you to search for specific sources, 
campaigns and panels by group name and key words. 

• Select one Title / Product 

• Select Source Category 

• Select Source 

NOTE: the % will open the search parameters 

• Select Campaign - input before % 

• Select Panel - input before % 

• Select Break on Campaign - list of campaigns 



or 




Select Break on Panel - list of panels within a 
campaign 



Available Keys - Allows you to filter and search the 
available key list (List of all "un-assigned" keys for the 
product you are accessing), 

• Start with position #1 - Source Code (i.e. 4 
= Insert Cards) 

• Click GO 

NOTE: Each position (1-10) will accept an 
alphanumeric entry; use all 10 or a minimum of 1 to 
filter your search. 




ftT^ 4 lB2_08/2 1/2000* 
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IMT Tool Bar Features 
SETUP TABLES 



Chart of Setup Tables and associated database tables, to which they apply: 

• Create the tables shaded below prior to building campaigns 

• C = Corporate Setup Table: will assign across a group of products 

• P = Product Setup Table: will assign across individual products 

In addition to allowing you to associate keys to sources, campaign and panels, IMT Reporting provides the ability 
to attach additional information to a source key/promotion key (i.e. user may want to associate specific list 
selections to direct mail source keys). 



SETUP TABLE 


DEFINITION 


EXAMPLE 


CAMPAIGN 
TABLE 


PANEL 
TABLE 


KEY 
TABLE 


C/P 


AutoAdmin 
Parameters 


See the pages listed 


• Pages: 19 - 28 


0 


0 


0 


P 


Campaign Status: 


Define the activity of a 
Campaign 


• Active 

• dosed 

• Pending 


0 






P 


Campaign Type: 


A broad type classification of a 
Campaign which is user 
defined and can differ between 
sources 


\ • *Winter>DM- '"^ 
' >" : HotHhd\:y " f> 

•'„"»« - ' . ... 








p >4- 

^ ■ 


Expense Set: 


A set of expenses which can be 
applied to a Campaign, Panel, - 
or Key 


. 2000-01 DM 6x9 

Package Exp. 
• Triple Insert Exp. 


0 


0 


0 


P 


List Category: 


A broad category of related 
lists 


• Home 

• Sports 






0 


P 


list Name: 


ID to define the list 


• Tattooing Weekly 

• Money Monthly 








P 


List Segment: 


A spedfic selection from a list 


Paid Subs 
• 3 Month Buyers 






0 


P 


Panel Package: 


Define the type/style of a 
package 


6x9 Control 
* #10 Sweeps 




0 


0 


P 


Panel Subtype: 


Further define another field for 
a Pane! 


• Sweepstakes 
« Newsstand 




0 




c 


Panel Test Type: 


Define the type of test 


* Price 

• Offer 




0 




c 


Panel Type: 


Define the type of Panel 


• Control 

• Test 




0 




C 


Revenue Set: 


Revenue over and above 
subscription revenue, applied 
to a Campaign, Pane!, or Key 


• List Rental 
Revenue 

• Advertising 
Revenue 


0 


0 


0 


p 


Source Description: 


Define a specific channel of 
sale - 


.^/^-^Dira±|aail ^# 
r ; • VHlenewais ? %k 




; 01 


0 


c 


Source ID 
Description: 


Allow you to define a source 
beyond the one character 
fulfillment source description. 
Descriptions are used in 
reporting. 


* D or 2 = Direct 
Mail 


0 


0 


0 


C/P 
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Administration 



IMT Tool Bar Features 
SETUP TABLES 



Integrated Marketing Technology, Inc. 



>*SEftRCH 



;* AVAILABLE KEYS 



SET UP TABLES 



Each product has unique features and the Setup Tables are used to define campaigns, panels, or keys with 
detailed information that will allow your reports to produce a more valuable result (stronger and easier to read). 



Step - 1 Access Setup Tables 

• dick Setup Tables located on the IMT Tool Bar 
(NOTE: You can access setup tables at any point 
in the administration process, after you have 
selected a product; as shown in tool bar figure at 
the top of this page). 

Step - 2 Select the title / product and setup table you 
wish to edit When product is not selected, a prompt will 
appear. 



ACCESS SETUP TABLES gi 



AutoAdmin Parameters 
Campaign Status 
Campaign Type 
Expense Set 
List Category 
List Name 
List Segment 
Panel Package 
Panel Sub Type 
Panel Test Type 
Panel Type 
Revenue Set 
Source Description 
Source ID Description 



Step - 3 ADD new record(s) by dicking ADD button 
(located at the top of each Table). 

• Input your definition into the available field, 

* Submit and this will populate that Table so you 
can make a selection from the new record(s) 
when you build your campaign(s). 



NOTE: 



dick on Change Product ID, this link will allow 
you to move from product to product while still 
being in the selected Setup Table. 
Click on Return to Setup Table Selection 
Screen, this link will take you back to Step-2 



Step - 4 EDIT existing records by clicking EDIT button 
(located at the left of each Table definition that exists) 

♦ Input changes 

• Submit 
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Administration 



FAST FIND 



Building Campaigns 

STEP 1 - ADD SOURCE 



,»SKRCH 



1. Select a Product Group, Product & Source 
Category (i.e. Business/The New Economy/DTP) 





Integrated Marketing Technology, Iik. 



r AVAILABLE KEYS 



SET UP TABLES 



Define Source(s) 

• Locate the IMT Tool Bar and dick on Setup 
Table (window #2 will open) 

• Select Source Description 

• Add or Edit per instructions on the previous 
page 10 

• Submit to enter and save your information 

• dose Setup Table (#2) window 




3. Add new Source(s) (return to main window #1) 

• dick Add New 

• Select Source Name 

• Input a Source Indicator (the one digit 
alpha-numeric code that corresponds to the 
first position of the source key provided by the 
fulfillment house (i.e. 4 = Inserts or 0 = Direct 
Mail) 

• Submit to enter and save your information 





SUBMIT button - apply changes to the database. 
ADO button - add a record to the database 
EDIT button - edit a record in the database. 

RETURN / BACK to a previous screen/page use (Click on the underlined link and return) 



NOTE: DELETING A SOURCE; you must contact IMT directiy via support@imtnetwork.com 



© 1994 - 2000 Integrated Marketing Technology, Inc. 
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Administration 



1. Select a Source (i.e. Inserts, etc) 



2. Add new Campaigns) (Fig 3.10) 

. aicklll 

• Input Campaign Name (i.e. 2000-12) (NOTE: use 
year before month to better sort multiple 
campaigns) 

• Input Start Date (i.e. 12/1/00) 

• Input optional data: Campaign Type, Status, 
Expense Set, Revenue Set, Budgeted Gross 
Pet, Budgeted Volume 

• Submit to enter and save your information 

3, Copy feature: 

• Select the campaigns to Copy (you can choose 
more than one at a time to copy) with 0 at the left 
of the campaign name 



Select: 



button to duplicate campaign(s) and 



panel(s) associated with campaigns copied (your 
copies will appear at the top of the campaign table 
(i.e. Copy 1 of 2000-12). Edit the copied campaign 
name (i.e. 2001-12)(NOTE: Campaign names are 
unique to each source name). 

Once you E5 the record(s) you wish to edit, 
dick the Edit button to go to the Edit screen and 
make changes. 

Submit to enter and save your information 



BUILDING CAMPAIGNS 
STEP 2 - ADD OR COPY CAMPAIGNS 




tf?S 2000-05 



Undefinec 



|2000-04 


4/1/2000 


e — 1 

Und«fin«d 


Undefmte 


12000-03 


3/1/2000 


Undefined 


Undefinec 



TIPS: 



EDIT button - edit records in the database 

COPY button - copy the campaigns & panels (not keys). 

DELETE button - delete a campaign (and its associated panels and keys) or panels and keys separately. 
RETURN / BACK to a previous screen/page u se ( Click on the underlined link and return) 



PREVWttfmECTWi 
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1. Select a Campaign (i.e. 2000-01) 



2. Add new Panel(£) 
* aicklllll 



Input Panel name (i.e. Control, Price test, etc.) 
Input Optional Data: Panel Start Date, Panel 
Type, SubType, Test Type, Package, 
Expense Set, Revenue Set 
Submit to enter and save your information 



3. Copy feature: 

• Select the panels to Copy (you can choose more 
than one at a time to copy) with 0 at the left of 
the pane! name 



Select button to duplicate panel(s) 

(copies will appear at the bottom of the panel 
table (i.e. Copy 1 of 01. Sub). Edit the copied 
panel name (NOTE: Panel names are unique to 
each source name). 

lilO Once you 0 the record(s) you wish to 
edit, click the Edit button to go to the Edit screen 
and make changes. 

Submit to enter and save your information 



Administration 



Building Campaigns 
STEP 3 - ADD OR COPY PANELS 

\ SELECT CAMPAIGN j^fcS^ 



^SELECT CAMPAIGN 



2000-05 
2000-04 
2000-03 
2000-02 
2000-01 




PANEL NAME 



PANEL START 
DATE 



PANEL NAME 



PANEL OATC START I PANEL TYPE 



| Ol. Sub - 12/* 12 



1 02. Sub - A 12/$ 12 



\ 03. Sub - B 12/*12 



1 OS. Inflioht - 12/* 12 



06. NS - 12/$ 12 



j07. NS - 12/$ 12 



|Oe, NS- A 12/* 12 



09.HS- B 12/* 12 



I Copy 1 of Ol. Sub • 12/* 12 



I Swb*crib*r j A 



J Sub*crlb«r 



I Subscribe IB 

-3 h 

i Inflight i B 



* XnflloHt 



'N-twxr&ftftd J 6 



TIPS: 



EDIT button - edit records in the database 

* COPY button - copy the campaign & panels (not keys). 

♦ DELETE button - delete a campaign and its associated panels and keys. 
RETURN / BACK to a previous screen/page use (Click on the underlined link and return) 
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Administration 



Building Campaigns 
STEP 4 -ASSIGN KEYS 



1. Select a Panei (i.e. Ol.Sub - 12/$12) 

2. Assign new Key(s) - Confirm the correct Panel in 
view to assign key(s) 

3. Filter Keys By Position 

• Input one or more of the 10 key position 
fields (i.e. 41B2JJ8/21/2000), use less fields 
to view more keys in the available keys 
table) 

• dick Go to view the specific list of available 
keys within given range 

• Select the Keys you are assigning to the 
Panel 

• Select 0 at the left of each individual key 

• Click Select All to select ail available keys in 
view 

• dick Clear Ail to de-select all available keys 
in view 

• Click Assign Keys when your selections are 
complete (your selected keys will now be 
assigned / viewed in the Key Table in the 
selected Panel) 

4. When assigning Keys to more than one Panel 
within a campaign, select Change Panei and repeat 
steps above 



|01.Sub-12/$12 



SELECT PANEL 



01.Sub-12/$12 

02. Sub-A12/$12 

03. Sub-B12/$12 
04 Inflight -12/$1 2 

05. inflight -12/$1 2 

06. NS-12/$12 

07. NS-12/$12 

08. NS-A12/$12 

09. NS-B12/S12 

. Sub - 12/^12 





NOTE: 



For more information on assigning Insert Card Keys and using the Draw/Sale/Subtotal Flag fields, go to Page 29 
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Administration 



Edit Features 
GROUP EDIT AND MULTI-EDIT 



The Group Edit and Multi-Edit features in Admin allow the user to more easily edit campaigns, panels, or keys. 
For example: Make a universal change on all panels, use the Group Edit feature. Or, if there are several 
independent fields to change on each panel, you could use the Multi-Edit feature. 



Group Edit: 



Step - 1 Click the 



button. This will bring up the group edit bar with the same 



headings as the columns in the campaign, panel or keys tables. To dose the Group Edit screen, dick on 



Step - 2 Check the 0 next to the campaigns, panels, or keys you wish to edit. Or you can use 

W^^^^^^^^ - This button will select each row of data by placing a check mark (0) in all the 
white boxes. Click it again and it will clear the selection. You can also use this button to toggle selected 
0/CL 



Step - 3 In the Group Edit section at the top, make the change to the field(s) you wish toqjjt 



Group Edit 1 


IGN DATE 


CAMPAIGN TYPE 


CAMPAIGN STATUS 


EXPENSE SET 


REV 




e) j| (No Change) ^ | (No Change) Jsj 


(No Change) B| 


|(No Change) 



Step - 4 Once you've made the change, click 



. You will see that the edits you 



requested are now reflected below in the records you chose to edit. 
Multi-Edit: 



Step - 1 Check the 0 next to any row(s) you wish to edit. Or you can use the *~ 
button described above. 



Step - 2 Select 



Page 1 - Records 1-5 of 5 

Return to Menu 



CAMPAIGN NAME 



CAMPAIGN START DATE 



CAMPAIGN TYPE 



CAMPAIGN 
STATUS 



MuIttEdit 



EX 



|2000-05 


|5/l/2000 


(2000 Fall 


g (Active 




Undefined 


|2000~Q4 


(4/1/2000 


|2000 Foil 


E( (Active 




Undefined 


(2000-03 


(3/1/2000 


1 2000 Fell 






Undefined 


|2000-02 


(2/1/2000 


1 2000 Foil 


Kj (Active 




Undefined 


(2000-01 


|l/l/2000 


(2000 Fail 


jgl (Active 


d 


| Undefined 



NOTE: 



The system allows you to select and edit up to 20 records at a time, however the actual Edit screen will only show five 
of your selections at one time. Make the necessary changes, dick Submit Changes button, and this will save changes 
and take you to the next screen to edit remaining selections. When all selections have been edited, the system will 
automatically take you back to the initial screen. 
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Administration 




1. Select a Source (i.e. Inserts) 

2. Edit one Campaign 



• Select 0 existing campaign to edit, dick S 

• Edit Campaign Name (i.e. 2000-01) (NOTE: use year 
before month to better sort multiple campaigns) 

• Edit Start Date (i.e. 12/1/00) 

• Edit optional data: Campaign Type, Status, Expense 
Set, Revenue Set, Budgeted Gross Pet, Budgeted 
Volume 

• Submit to enter and save your information 
3. Group Edit or Multi-Edit existing Campaign 



Option A: dick 



Click Fwspassaaagasagflgaaaaggq button to auto select/un- 
select (0) campaigns to edit 
or 

Seled/unselect individually by clicking 0 at left of 
campaign name, confirm the campaigns to edit (as a 
group) with 0 at the left of the campaign name. Make 
your edit(s) in the open fields (Group Edit Bar above the 



Campaign Table). ^^8«>M$&8£s3&^^ffl to enter 
and save your information. 

Option B: Multi-Edit feature: 

• Select the campaigns to edit with 0 at the left of the 
campaign name 

« Click Edit button above campaign table to view 
campaign(s) to edit 

• Make your edit(s) in the open fields assodated with the 
campaign(s) to edit (NOTE: only 5 Campaigns are in view 
at one time, while using Multi-Edit) 

• Click Submit Changes button to save changes and take 
you to the next screen to edit remaining selections. When 
all selections have been edited, the system will 
automatically take you back to the initial screen. 



Edit Campaigns 
STEP 1 - EDIT CAMPAIGNS 






• EDIT button - edit records in the database 




* COPY button - copy the campaign & panels (not keys). 


TIPS: 


• DELETE button - delete a campaign and its associated panels and keys. 




♦ RETURN / BACK to a previous screen/page use (Click on the underlined link and return) 
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Administration 



1. Select a Campaign (i.e. 2000-12) 

2. Edit Panel 

• Select EI existing Pane! to edit, dick i 

• Edit Pane! name (i.e. Control, Price test, etc) 

• Edit Optional Data: Panel Start Date, Panel 
Type, SubType, Test Type, Package, 
Expense Set, and Revenue Set 

• Submit to enter and save your information 

3. Group Edit or Multi-Edit existing Panel 
Option A: Group Edit feature: 

• dick ^^^>Q r ^B^tel button below 



button to 




or 



auto select/un-select (0) panels to edit 

Select/unselect individually by clicking 0 at left 
of panel name 

Confirm the panels to edit (as a group) with 0 
at the left of the panel name 
Make your edtt(s) in the open fields (Group Edit 
Bar above the Panel Table) 

^^^^^^^^^^^^l £q en t er an( j save 
your information 



Option B: Multi-Edit feature: 

• Select the panels to edit with 0 at the left of 
the panel name 

* Click Edit button above panel table to view 
panel(s) to edit 

♦ Make your edit(s) in the open fields associated 
with the panel(s) to edit (NOTE: only 5 Panels 
are in view at one time, while using Multi- 
Edit) 

• Click Submit Changes button to save changes 
, and take you to the next screen to edit 

remaining selections. When all selections have 
been edited, the system will automatically take 
you back to the initial screen. 



Edit Campaigns 
STEP 2 - EDIT PANELS 




3/1/2000 









s 




Ol. *wfe - tt/ttl 








■i- 


ox. ««t* - a tats*** 










oil - * tx/tia 








ill 


o-*. j *»yti .»♦«■« - ■ */* i a 


















St? 


M< M* - > 2S* 1 St 










OT. M« - t 1 3 




















©». MS - * X 12 










c«#v * «fot. • t ay* i 2 










PANEL NAME 



I Oi. Sub - 12/$12 



i I Subscribe |C 





- * PANEL NAME j 


PANEL BATE £ 


1 Ol. Sub - 12/*12 




I 02. Sub - A 12/$12 




I 03. Sub - B 12/^12 




g 04. Inflight - 12/* 12 





i 05. Inflight - 1 2/* 1 2 



TIPS: 



• EDIT button - edit records in the database 

• COPY button - copy the campaign & panels (not keys). 

• DELETE button - delete a campaign and its associated panels and keys. 

• RETURN/ JAO<toaprevious < 
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Edit Campaigns 
STEP 4 -EDIT KEYS 



1. Select a Panel (i.e. control) 

2. Edit one Key 



• Select 0 existing Key to edit, dick 3 

• Edit Key name (i.e. Control, Price test, etc.) 

• Edit Optional Data: Panel Start Date, Panel 
Type, SubType, Test Type, Package, 
Expense Set, and Revenue Set 

• Submit to enter and save your information 

3. Group Editor Multi-Edit assigned Key 



Option - A: Group Edit feature 



dick; 



button below 



or 



the Ch ange Panel/Selected Panel field 

Select WUWSSS^BM bu tton to 
auto select/un-select (£J) Keys to edit 

Select/unselect individually by clicking 0 at left 
of key name/code 

Confirm the keys to edit (as a group) with 0 at 
the left of the key name 
Make your edit(s) in the open fields (Group 
Edit Bar above the Key Table) 



I to enter and save 



your information 



Option - B: Multi-Edit feature: 

• Select the keys to edit (as a group or 
individually) with 0 at the left of the key name 

• Qidc Edit button above key table to view 
key(s) to edit 

• Make your edit(s) in the open fields associated 
with the key(s) to edit (NOTE: only 5 Panels 
are in view at one time, while performing 
Multi-Edit) 

• dick Submit Changes button to save 
changes and take you to the next screen to 
edit remaining selections. When ail selections 
have been edited, the system will automatically 
take you back to the initial screen. 



|01.Sufa-12/$12 



SELECT PANEL 



01.Sub-12/$12 
02. Sub-A12/$12 
03.Sub-B12/$12 

04. Inflight- 12/$1 2 

05. Inflight- 12/$1 2 

06. NS-12/S12 

07. NS-12/S12 

08. NS-A12/S12 

09. NS-B12/$12 



SnSoi. Sub - *2/*12 





■CEY DESCRIPTION 



IhfAXI- QTY OVERRIDE / DRA 



(No Change) 



|(No Change) 



Mm 



TIPS: 



EDIT button - edit records in the database 
COPY button - copy the campaign & panels (not keys). 
DELETE button - delete a campaign and its associated panels and keys. 
RETURN / BACK to a ,Pre)^^ s^"/|page use (Qidc on the ""fleri i ne d a ffi ffium) 
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Administration 



AutoAdmin 
OVERVIEW 



IMT AutoAdmin has been created to minimize the amount of time spent on setting up campaigns in IMT 
Reporting. The idea behind AutoAdmin is that certain keys have a solid structure and therefore can be assigned 
based on the design of the key. Bills and Renewals are good examples of sources with a solid key structure. 
Fulfillment houses generally maintain uniformity across these two sources. 

IMT is able to look to the appropriate position in each key to pull relevant information from the key, and then 
designate an appropriate source, campaign and panel. AutoAdmin within IMT Reporting refers to the process 
whereby source keys are automatically assigned to Sources, Campaigns and Panels without manual administration 
(see Building Campaigns section). This is accomplished through a series of user-defined setup tables that serve as 
instructions for interpreting source keys. These tables serve as filters that provide the system with basic 
instruction. 

Does AutoAdmin replace manual administration? 

No, AutoAdmin Setup is an enhancement to IMT Reporting. If you prefer to setup your campaigns manually, then 
you can continue to do so. In fact there are some sources where manually administration is preferable or 
required. NOTE: Bills & Renewals generally have the same panel name (i.e. control) across multiple campaigns. 

Does Auto Setup work for any source? 

Yes, AutoAdmin can be used for any source of business. However, in order for AutoAdmin to work most effectively 
a clearly defined source key logic must exist. As a minimum requirement, specific positions from a source key 
must distinguish the source and campaign. Billing and Renewals source, which often account for the highest 
number of source keys, typically utilize a standardized key logic that is well suited to AutoAdmin. For other 
sources of business that are not as standardized, manual administration of campaigns may be preferable or 
required. 

How do I get started? (Where is it located?) 

To get started, you will need to learn more about how the AutoAdmin Setup tables work and how to populate 
these tables correctly. To access AutoAdmin click on the Setup Tables (located on the IMT Tool Bar), then 
select AutoAdmin from the drop down menu. 




Auto Setup 
Tables 




NOTE: 



Once these tables have been populated, the system will automatically assign keys to the correct source, campaign and panel 
as they come on the file. It is important, however, to check that keys are assigned correctly in order to ensure accuracy in 
reporting. There are checking reports available, which will aid in this process. For Bills, use the "Billing Source Key 
Assignment - Checking Report"; for Renewals, use the "Renewals Source Key Assignment - Checking Report". 
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Administrateon 

AutoAdmin 
SETUP 

HOW TABLES WORK 



There are four Auto Setup tables, which together control how source keys are associated to sources, campaigns 
and panels. 



TABLE 


PURPOSE | 


REQUIRED? 1 


Auto Setup Schemes 


The Auto Setup Schemes table allows a user to create filters ; 
through which source keys are passed. The primary ! 
component of a scheme is called the setup mask. A setup ; 
mask identifies which position(s) of a source key represent ! 
the source, campaign, panel or prior source. ! 


YES 


Campaign Name Definitions 


This Campaign Name Definition table provides a user the 
opportunity to convert campaign codes to names that are 
more descriptive. Campaign codes are based upon the , 
source key positions that represent the campaign. 


NO 


Renewal Prior Source Definitions 


TOs table is onfy used for renewal sources, and only in cases j 
when a source is split For example, if ail conversions source . 
keys begin with a source indicator "6", you may wish to split ; 
out DTP and agent conversions separately based upon prior 
source. 


NO 


Panel Name Definitions 


This table is only used in conjunction with setup schemes 
that identify panel splits. If a panel split is identified in a 
setup scheme, then panel codes can be given more 
descriptive names by adding records to this table, and then 
applying the pand-naming scheme to a campaign in the 
campaign names definitions table. 


NO 



NOTE: 



Not ail the Auto Setup tables need to be populated for the system to automatically assign keys to sources and campaigns. In 
fact, only the Auto Setup Schemes table is required for Auto Setup to work; the other tables provide a means of controlling 
more precisely how campaigns and panels are named, or in the case of renewals provide the ability to split a source. 




Source fc Campaign j Campaign 

tP^^ 4 >' -zrri ■ ; Category | Code [Description 



| Campaign i Panel 
1 Date i Scheme 



Ig^^-^Sc^jBllllog |aXOO joo Cr.dtt P.riod AXOO|e/l/2000 j 




# J|jL?- • Ack R*t«st 
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autoAdmin 

HOW TABLES WORK TOGETHER 



The schematic below shows the sequence of checks that Auto Setup makes in order to correctly associate source 
keys to sources, campaigns and panels. 




Check" 
AUTO ' SETUP 
SCHEMES 
table ^ 



If split ] 
renewal source J 



:tIf-other : tban 
split renewal source 



Check 
PRIOR SOURCE 
DEFINITIONS 
table for correct 
source identification 



i 



Check 
CAMPAIGN NAME 
DEFINITIONS 
table for correct 
campaign name 




If panel scheme 
specified 



Check 
PANEL SCHEME 
DEFINITIONS 
table for correct 
panel name 




If pand£ctterne&\ 
not specified 



System assigns key 
: S ^^th default 
panel t&me 



System assigns key 
with user- defined 
panel name 
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AutoAdmin 
SOURCE KEY ANATOMY 



IMT Reporting will divide source keys into four broad categories (Source Category): 

• DTP (direct to publisher) 

• Renewal 

♦ Gift 

♦ Billing 

Depending on the fulfillment company, the source category, and IMTs summary procedures, source 
keys may have different formats. Below is a chart to help identify and interpret source keys based on 
fulfillment company. * . 



EDS / CENTROBE 



TYPE 


EXAMPLE 


DESCRIPTION 


OTP 


OSUA_20000124 


Position 1 = Source 

Positions 2-4 = Open 

Positions 6-13 = Date (yyyymmdd) 

NOTE: An asterisk (*) appended to a key 
indicates that the key was received without a 
select date specified. As a result, IMT 
appends the process date to the key for id 
purposes. 


RENEWAL 


7AK1_6_526 


Position 1 = Source 
Position 2 = Issue or Package 
Position 3 = Issue or Package 
Position 4 = Effort 
Position 6 = Prior Source 
Position 7-9 - Expire 


GIFT 


2CL5_G_20001215 


Position 1 = Source 
Position 2-4 = Open 
Position 6 = Gift Identifier 
Position 8-15 = Date (yyyymmdd) 

NOTE: An asterisk (*) appended to a key 
indicates that the key was received without a 
select date specified. As a result, IMT 
appends the process date to the key for id 
purposes. 


BILLING 


B52_990321_4_1A 


Position 1 = Source 
Position 2-3 ~ Bill key 
Position 5-10 = Date (yymmdd) 
Position 12 = Current Source 
Position 14 *= Effort 
Position 15 = Package 
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Administration 

AutoAdmin 

SOURCE KEY ANATOMY - CONTINUED 



PALM COAST DATA 1 


TVDP 


FYAMPLF 


DESCRIPTION 


DTP 


28M25A_1999 


Position 1 = Source 
Position 2-6 = Open 
Position 8-11 = Date (yyyy) 


RENEWAL 


3E9H01.1999 


Position 1 = Source 
Position 2 = Prior Source 
Position 3-4 = Issue 
Position 5 = Package 
Position 6 = Effort 


GIFT 


D9NC11_1999 


Position 1 = Source 
Position 2-6 = Open 
Position 8-11 = Date (yyyy) 


BILLING 


B2_930J)0 


Position 1 = Source 
Position 2 = Prior Source 
Position 4 = Year (y) 
Position 5-6 = Credit Period 
Position 8-9 = Effort 



CDS 1 


TYPE 


EXAMPLE 


DESCRIPTION 


DTP 


DP2F001„010199 


Position 1 = Source 
Position 2-4 = Open 
Position 5-7 = Split 
Position 9-14 = Date (mrnddyy) 


RENEWAL 


RU21000JH0199 


Position 1 = Source 

Position 2 = Issue 

Position 3 = Prior Source 

Position 4 = Effort 

Position 5-7 = Split 

Position 9-14 = Date (mrnddyy) 


GIFT 


YTA1000_010i99 


Position 1 = Source 
Position 2-4 = Open 
Position 5-7 = Split 
Position 9-14 k Date (mrnddyy) 


BILLING 


BP21000_010199 


Position 1 = Source 
Position 2 = Credit Period 
Position 3 = Current Source 
Position 4 = Effort 
Position 5-7 = Split 
Position 9-14 = Date (mrnddyy) 
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Administration 



AotoAdmin Setup Schemes 



AutoAdmin Setup Schemes table tells the system what sources to look for to automatically setup campaigns* 
You define the criteria to identify and assign source keys to a campaign. The system will work even if this is the 
only table you setup. (However, to do proper naming of campaigns and splitting of panels, you should use all the 
tables. For example, if you only filled out this table, then your campaigns and panels would be named based on 
the fulfillment codes: Campaign = Expire 521, Panel = Panel A. . If you filled out the Campaign Name Definition 
table and Panel Schemes table, then you could have the system name them: Campaign = 2000-01, Panel = 
Control). 

The Setup Mask is the most important element of any Setup Scheme. The Setup Mask is simply a string of alpha 
characters used to identify the parts of a source key. IMT has created a simple set of characters to identify 
source, campaign, panel/split, and prior source (renewals only). By stringing these characters together to form a 
Setup Mask, you provide our system with all the information required to automatically identify and create 
campaigns. 



I Setup Mask Legend 1 


! Identifier 


| Description 


Examples 


s 


jpource 


|S = Billing 
|l = Renewals 


c 


jjCampaign, Expire or Credit 
ijPeriod 


1125 = Expire 125 (Jan-2000) 
1001 = Jan 2000 Expire 


p 


jJpackage/Split 


jO = Renewal Control 
|l = Renewal Test 


z 


|>rior Source 


jO = Direct Mail 

= Conversions 
|A = AFP 


X 


ijplaceholder 


(Used to mark a position on a source key that does NOT 
Identify Source, Campaign, Panel/Split or Prior/Current 
[Source 



Understanding how your source keys are constructed is a pre-requisite to creating Auto Setup Schemes. Since IMT will often 
NOTE: enhance source keys (in order to provide better reporting capabilities), you should familiarize yourself with IMTs source key 
structure. 



Select 
Oate 
From 


| Select 


Setup 


I Expense 


i Date To 


Mask 


J Set 




^00^: E»5^DTP Conversions 
>S^3$& »5;f3DTP Conversions 



il/l/1998|l2/31/2005|s«PK«2KCCC 



(■Undefined 



n/l/19S8|l2/31/2005?S«P«H2ZKCCC ^Undefined 
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Administration 



AutoAdmin Setup Schemes 
CREATE NEW SOURCE 



1. Select ADD NEW source 



2. Select a Source Name from drop down menu. 

3. Input Source Indicator (first position of source key, i.e. l=Renewals or E=Agent Conv) 

4. Type in Valid From and Valid To dates (should select a date far in future, this field may be used when 
you change first position of source, i.e. if you change fulfillment houses), AutoAdmin looks at the select 
date on a key to determine if it fits the range. 

5. Create Setup Mask - The Setup Mask identifies what part of the source key Admin will look at to create 
a campaign. Each fulfillment house has a different source key structure and therefore a different Setup 
Mask. To create a Setup Mask, choose from one of the following schemes below. 




If you do not indude a specific position for "P", panel, then and the system will automatically default each key into a panel 
called "Control". Otherwise it will create a panel based on the panel scheme defined in the Panel Name Definition table, or 
create a pane! based on the fulfillment code in the key, i.e. Panel A, Panel 1, etc 



SAMPLE SETUP MASKS 



Since the Setup Mask is the most important component of a setup scheme, for reference here are some 
examples of setup masks by Fulfillment Company and source: 



EDS/Centrobe 




Source 


I Setup Mask I 


[Renewal (SIPE) 




$xPxxZxCCC 


{Renewal (SPIE) 




i|SPxxxZxCCC 


(Renewal (SIPE) - 


DoubteDigit 


£xPxxZZxCCC 


{Renewal (SPIE) - 


Double Digit 


iSPxxxZZxCCC 


{Billing 




iSCCxCCxxxxxZxxP 


{Billing -Double Digit 


(SCOcO^ooocxZZxxP 


{DTP 




{Depends on key structure 


{Gift 




jjDepends on key structure ■ 


Palm Coast Data I 




Source 


I Setup Mask I 


^Renewal 




llSZCCPxxCCCC 


{Billing 




;$ZxCCCxPx 


|DTP_ 




Spends on key structure 


iGift 




jjDepends on key structure 


I CDS I 




Source 


| Setup Mask I 


Renewal 




i |SCZxPPPxxxxxCC 

ICC relates to effort select date not necessarily expire 
lyear) 


Billing 




{SCZxPPPxxxxxCC 


DTP 




[Depends on key structure 


ksift 




[Depends on key structure 
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CAMPAIGN NAME DEFINITION 



Campaign Name Definitions table allows you to define your campaigns based on the fulfillment codes and give 
them user-defined names. Naming your campaigns makes it easier to keep track of them and easier to do 
analysis. You can also define certain panel schemes for each campaign. Example: lef s say you have an expire 
campaign with which you conducted a test, then you may want to create a panel scheme that will split the expire 
(two panels) - control and test. This table provides the ability to choose a panel scheme that automatically 
creates control and test panels. 



If you already have prior campaigns setup in admin and want future source keys to be assigned to those campaigns, you still 
need to create a Campaign Name in this table. That campaign name must match the campaign and panel names exactly as 
they are already named in Admin for new keys to be correctly assigned to it Otherwise, it will create a new campaign. If 
this happens, a quick fix is to delete the old or new campaign that was created, and reassign it correctly in the Campaign 
Name Definition table so that the keys can be reassigned. Deleting a campaign places those source keys back in the 
available keys table to be reassigned. 



Create Campaign Names: 

1. Select ADD NEW to create the campaigns for Bills and Renewals that you want the system to 
automatically add to Admin. 

2. Type in a Campaign Code based on your "C" scheme in the setup mask (i.e. Centrobe Renewal CCC= 
520, or Palm Coast CCCCCC = 1A2001). 

3. Type in a Campaign Description name to identify your campaigns (i.e. "2000-01" for Renewal expires, 
or "99 BK 48" for Billing credit period). 

4. Select a Source Category from the drop down menu. 

5. Type in a Campaign Date (i.e. 1/1/2000 for a Jan expire) to assign. 

6. Select a Panel Scheme from the drop down menu (based on what is defined in the Panel Name 
Definition table). 

7. Submit to save * 







Bill Default 




:1998 BK03 



U/l/1998 



;1998 BK 04 



h/l/1998 



Bill Default 



U998 BK 05 



J2/1/1998 



Bill Default 
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AutoAdmin 
PANEL NAME DEFINITION 

Panel Name Definitions table is used to create your panel naming schemes. You can choose to identify all 
your panels as controls, or you can create a scheme for individual campaigns that may have tests going on and 
name them appropriately (i.e. control, price test, creative test, etc). TTie schemes you setup can then be applied 
to the Campaign Name Definition table. 




If you already have prior campaigns setup in admin and want future source keys to be assigned to those campaigns, you still 
need to create a Campaign Name in this table. That campaign name must match the campaign and panel names exactly as 
they are already named in Admin for new keys to be correctly assigned to it Otherwise, it will create a new campaign. If 
this happens, a quick fix is to delete the old or new campaign that was created, and reassign it correctly in the Campaign 
Name Definition table so that the keys can be reassigned. Deleting a campaign places those source keys back in the 
available keys table to be reassigned. 



Create Panel Name Definitions: 

1 



Select ADD NEW to create a new panel scheme to define how campaign panels should be named 
and possibly split 

2. Type in a Panel Scheme name to define panel definition (i.e. Renewal Default, Jan 00 Test, 
Billing DM Test, etc). 

3. Type in the Package Code(s) from the Source Key (P) that apply to the scheme (you can list 
more than one package at a time, just separate with a comma). 

4. Type in the Panel Name you want to describe the panel for reporting (i.e. Control, Test 1, Price 
Test, Creative Test, etc.) 



Submit to save 





$^%aff|§eiii Default 



M<JEM ^.Creative Test 
f' r ;' ~ ■» .. . 

* t . , . : >i ~i IBJI ; ;"c re att v e Te st 

— 

j.; - ^. Sttfc-Jc r e a ti u e Te s t 

; EOCT 1 Email Test 

EBff Email Test 

COrT^Email Test 

«H . Ren Default 



J Panel Codes 


Panel 
Name 




Control 




\A 


Control Pane! 


iB 


Test - Ack Retest 


|A,B / C,D,E,F <r G,HJ,K,UM > N,P,<5,R,S,T,aV,W / X,Y,2 


Control 


i'0, 1,2,3,4,5,6,7,8,9,* 


Control 


P,M,U,G,J,S,T,Q,B,C,2, 1,2,3,9,* 


Control 


t 



B,E 

P, M, A, D, G, J, S,T, Q, B, C, 2, 1 , 2, 3, 9 * 

K 

"4 

A,B,D,E,G,J,K,Q,R,T,X 



(Control Panel 



JTest - 1st Eflf Ack Creative* 
; Control 

Control Panel 

Test - Email 

Control 
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AutoAdmin 

RENEWAL PRIOR SOURCE DEFINITIONS 

Using the Prior Source Definition Table 

In the case of some renewal sources, a user may wish to split keys into groups based on prior source. This can be 
accomplished by using the Prior Source Definition table. Common example might be taking a single conversion 
source and splitting it into two unique sources - DTP Conversions and Agent Conversions. The Prior Source 
Definition table provides a user the option of identifying which prior source codes are DTP versus Agent. If you 
have Z marked in your Setup Mask, then it will look to this table for more information on how to assign a key to 
the correct split source. 




If prior source is identified in the source scheme setup mask ("Z"), but there are no corresponding records in the Prior 
Source Definition table, then the system will NOT be able to auto assign keys. Conversely, if there are records in the Prior 
Source Definition table, but prior source has not been identified in a source scheme setup mask ("Z"), then the system will 
NOT be able to properly assign keys. 



Create Prior Source Definitions: 

1. Select ADD NEW to create a Prior Source Definition table. 

2. Select a Source Name from the drop down menu. 

3. Input Source Indicator (1st position of source key, i.e. l=Renewals or E=Agent Conv) 

4. Input Prior Source Indicator (you can list more than one source at a time, just separate with a 
comma). 

5. Input a Valid From and Valid To date that these prior source definitions are valid. 

6. Submit to save 




© 1994 - 2000 Integrated Marketing Technology, Inc. 
www.imtnetwork.com * 4 1 5.3 5 2.2 3 70 



28 



Administration 

Insert Card 
SETUP 

Reporting on N/S (Newsstand Sale) Insert cards can be based on either N/S Sales or N/S Draw. IMT allows 
the user this flexibility through the Mail Qty Override/ Draw, Newsstand Sale, and Response based on Sale 
(Y) or Draw (N) fields. These three fields, and two others, can ail be found at the Key Levels and are described 
below: 

At the Key level, you will have the following fields to use: 

Mail Qty - This is the quantity that comes through from the fulfillment house and is a non-editable field. Take 
note; with Insert Cards, the fulfillment houses may not always key in this information on file. When the data that 
comes through this field is missing or in some cases not accurate, you will need to use the Mail Qty 
Override / Draw field . 

Mail Qty Override/Draw - This is the field you will use to enter a subscriber distribution quantity or a 
newsstand draw quantity. Named Mail Qty Override/Draw because if you enter a number here, that 
number will override any number that comes through the fulfillment house in the Mail Qty field and the expense 
set will look to calculate print costs off this number. If there is no number input here, it will then look to the 
Mail Qty field to calculate expense. 

Newsstand Sale - This is where you would enter a quantity for sell-through if you want to calculate your 
gross and net responses off this number, otherwise you can leave it blank. 

Response Based on Sale (Y), Draw (N) - Enter a Y if you want the reports to use the N/S Sale Qty for 
response analysis, enter an N if you want the report to use the Mail Qty Override Draw Qty for response 
analysis. The default is set to N. 

Subtotal Flag - This field is for reporting purposes. Generally, when you run a DTP report, you want to count all 
the mail quantities for each key in the total for that campaign (i.e. Direct Mail). However, with Insert Cards, the 
newsstand and subscription quantities for each card promoted should only be counted once in the campaign total, 
not once for each card. Enter and F or False if you do not want that key's mail quantity to be included in the 
subtotal. Enter a T or True if you do want that key's mail quantity to be included in the subtotal. The default is 
set to T. 
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Reporting 
HOW TO START 



Before running reports, you must organize your data using IMTs Admin application. When Admin is complete, 
you're ready to view reports. Here are the steps to either create a new report, or run a saved report: 



STEP 1 - LOGON TO THE SYSTEM 

1- Go to http://www.tmtnetwork.com/ 

2. dick "Client Center" 

3. Login with your usemame and password 

4. Click Reporting 

STEP 2 - CHOOSE NEW OR SAVED REPORT 



Create a "NEW" report, follow these steps: 



STEP 3 - SELECT A PRODUCT (S) 

• Select One or More Products 
STEP 4 - SELECT A REPORT 

• Choose a REPORT CATEGORY 

• Choose a REPORT STYLE 
STEP 5 - NAME YOUR REPORT 

• Naming your report is optional 

NOTE: Name your report in order to save it (other than 
Undefined). 



Tip: At this point you can run your report However, if you want 
to filter your report data, then you will need to make a data 
selection. 

STEP 6 - MAKE YOUR DATA SELECTION 
Selection options include: 
Sources 
Campaign Type 
Campaign 
Panel Type 
Panel Test Type 
Panel Name 
STEP 6 - RUN YOUR REPORT 



♦ To run your report elide the RUN REPORT button 
STEP 7 - S AVE YOUR REPOR T (optional) 



Go back to the report screen 
Click on the SAVE button 

Choose a Report Group (that has already been 
created) or Create a New Report Group 
Select a Division / Group 
Go and your report is now saved and stored by 
Division, Group and Report Group 



Run a "SAVED" report, follow these steps: 

STEP 3 - SELECT A DIVISION / GROUP 
STEP 4 - SELECT A PRODUCT 



STEP 5 - SELECT A REPORT GROUP 

• dick RUN REPORT GROUP to run the all the reports 
within the specified group. 

• dick DELETE REPORT GROUP to delete all the reports 
within a specified group 

• Click GO to select a report within a report group 



STEP 6 - SELECT A REPORT 

• Click RUN REPORT to run an individual report 

dick DELETE REPORT to delete an individual report 
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Reporting 

HOW TO NAVIGATE 
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Reporting 
HOW TO READ 




REPORT CATEGORY 

New Bus res^hia-Jtfr: 



PRODUCT GROUP 




REPORT NAME |_| & PRODUCT 
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DATE /TIME PRINTED 
LATEST UPDATE DATE 



PAGE NUMBERS 
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Reporting 



Agent 
OVERVIEW 

IMT provides a variety of different agent reports for tracking agent production. As is the case with ail IMT 
reports, these reports provide driii-down capabilities, which allow users to simply double-click on a field to view 
the detail below it The standard fields on IMT agent reports include: 

• Total Subs 

• Gross $ 

• Net$ 

• Remit % 

• Avg Term 
« Avg Price 

• Expenses 

• NPN 

• Rnwl % 

• Cancels 

• Reinstates 

• Net Activity 

For more information about field definitions, or how fields are calculated, please look to the table on the next 
page or refer to the glossary. 
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Agent 

FIELD DEFINITIONS 



FIELD 


DEFINITION / CALC METHOD 


TYPE 


v COMMENT 


l Uval juus 


Thp tnfal ni lanttfv nf r\aiH and mpdit ^utsrriDtions 


Summarized 


The fulfillment house provides gross Sub quantities. 


Gross $ 


The dollar value of paid and credit subscriptions. 


Summarized 


The fulfillment house provides gross Revenue 
values. 


Net$ 


The dollar value of paid and credit subscriptions 
remitted to the publisher by the agent 


Summarized 


The fulfillment house provides net Revenue values* 


Remit % 


Net $ / Gross $ 


Calculated 




Avg Term 


Gross Copies / Total Subs 


Calculated 


Represents the average copies per subscription. 
The fulfillment house provides gross Copy 
quantities. 


Avg Price 


Gross $ / Total Subs 


Calculated 


Represents the average dollar value per 
subscription. 


Expenses 


NA 


NA 


Expenses are NOT applied to agent reports at this 
time. 


NPN 


(Net $ - Expenses) / Subs 


Calculated 


Represents the average net (remitted) value of 
subscriptions. Expenses are NOT induded in NPN 
calculations at this time. 


Rnwl % 


Renewal Subs / Total Subs 


Calculated 


Renewal Subs for Agents are subscriptions that 
come in from an agent that match an existing 
record on file. The fulfillment house provides 
quannues. 


Cancels 


The total quantity of cancelled subs. 


Summarized 


The fulfillment house provides cancel quantities. 
Cancels correspond to cancellations received from 
an agent during a production period. Cancels do 
NOT correspond with Total Subs during the same 
period. 


Reinstates 


The total quantity of reinstated subs. 


Summarized 


Reinstate quantities are provided by the fulfillment 
house. Reinstates correspond to cancellations 
received from an agent during a production period. 
Reinstates do NOT correspond with Total Subs 
during the same period. 


Net Activity 


Total Subs - Cancels + Reinstates 


Calculated 
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~ " " Agent 

LIST OF AVAILABLE REPORTS 

Below is a complete list of agent (Other reports are placed here) reports broken down by subcategory. 



REPORTS BY SUB-CATEGORIES 


SUB-CATEGORY DESCRIPTION | 


SUMMARY ANALYSIS 




• Publication by Source by Agent by Month 




• Publication by Agent 




Publication by Source Month 




♦ Publication by Source by Remit 




* Publication by Source by Agent 




• Agent by Publication 


Agent Summary reports offer the ability to monitor agent production by source, 


month and remit rate. 


* Publication by Source 




• OTHER REPORTS 




• Starts by Model Source 




• Starts by Source 




• Available Keys 




Assigned Keys 
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Reporting 

Billing 
OVERVIEW 

IMT provides a variety of different billing reports for analyzing the performance of billing sources and 
campaigns. As is the case with all IMT reports, these reports provide drill-down capabilities, which allow users to 
simply double-click on a field to view the detail below it. Any campaign for which keys have been assigned is 
viewable through these reports. The standard fields on IMT billing reports include: 

• Max Effort Qty 

• Bills Mailed 

• Total Payment 

• Payment % 

• Bills-Payment Ratio 

• Step-Up Qty 

• Step-Up % 

« Request Cancel Qty 

• Request Cancel % 
« Total Revenue 

• Total Expense 

• NPN payment 

« Payment On Payment 

• Payment After Cancel 

• Indexing - Pay-Up%, NPN 

For more information about field definitions, or how fields are calculated, please look to the table on the next 
page or refer to the glossary. 
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Billing 
FIELD DEFINITIONS 



FIELD 


DEFINITION / CALC METHOD 


TYPE 


COMMENT 


Max Effort Qty 


Within a bid series the mail qty from the effort 
with the highest mailed quantity. 


Calculated 


Looks across all efforts to select the maximum 
tolling pool size within a billing series. 


Bills Mailed 


The number of bills mailed for a particular 
effort 


Summarized 


Bills Mailed quantities are generally provided by 
the fulfillment house. 


Total Paymt 


Represents the total number of payments. 


Summarized 


The fulfillment house generally provides 
payments. 


Paymt % 


Total Paymt /Bills Mailed 
or 

Total Paymt / Max Effort Qty 


Calculated 


The basis for calculating Paymt % will vary 
depending on the level and order of groupings. 

• For individual efforts Bills Mailed is 
used. 

• For source, campaign, and panel 
subtotals, Max Effort Qty is used. 


Bills - Paymt Ratio 


Bills Mailed /Total Paymt 


Calculated 


Represents the ratio of Bills Mailed to Total 
Payments, 


Step-Up Qty 


Step-ups are generally renewal orders made at 
the same time as a billing payment, usually in 
response to an offer on the billing effort 


Summarized 


The fulfillment house generally provides step- 
up quantities. 


Step-Up % 


Step-Up Qty /Bills Mailed 
or 

Set-Up Qty / Max Effort Qty 


Calculated 


The basis for calculating Step-up % will vary 
depending on the level and order of groupings. 

• For individual efforts Bills Mailed is 
used. 

* For source, campaign, and panel 
subtotals, Max Effort Qty is used. 


Req Cnd 


Request Cancels are cancels made by a 
subscriber. 


Summarized 


The fulfillment house generally provides Req 
Cnd quantities. 


Req Cnd % 


Req Cnd / Bills Mailed 
or 

Req Cnd / Max Effort Qty 


Calculated 


The method used to calculate Req Cnd % will 
vary depending on the level and order of 
groupings 
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(2) 

Reporting 

Billing 
CONTINUED 



FIELD 


DEFINITION / CALC METHOD 


TYPE 


COMMENT 


Total Revenue 


Total payment dollars. 


Summarized 


The fulfillment house generally provides 
revenue quantities. 


Total Expenses 


Lettershop Costs-*- Postage In + Postage Out + 
Premium Costs + Print Costs + Subs Service 
+Other Costs + Billing Costs + Bad Pay Costs + 

USl LOSIS 


Calculated 


Expenses are dependent on (1) the association 
of an Expense Set to a campaign, panel or key, 
and (2) the values and settings that define an 

C^/rVAfi^a Crtf 

expense oe u 

Note: List Costs are the only expense item NOT 
reliant on an Expense Set List Costs are 
applied directly to a key, and are calculated 
using either the mail qty or merge/purge qty as 
a basis. 


NPN Payment 


(Net Revenue - Total Expense) / Total Paymt 


Calculated 


Represents the average revenue per net 
payment 


Pymt on Pymt 


A payment on payment is a second payment 
made on the same billing effort or series. 


Summarized 


The fulfillment house generally provides 
Payment On Payment quantities. 


Pymt After Cancel 


A payment after cancel is a payment made 
after a request cancel has been processed. 


Summarized 


Tne fulfillment house generally provides 
Payment After Cancel quantities. 


Indexes 
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Reporting 

BlUING 

LIST OF AVAILABLE REPORTS 



Billing reports are grouped into subcategories, ranging from high-level summary analysis to low-level effort 
analysis. Below is a complete list of billing reports broken down by subcategory. 



! REPORT SUB-CATEGORIES 


DESCRIPTION 


SUMMARY ANALYSIS 

• Source by Current Source 


Summary Analysis reports offer high-level views at the current source 
level. These reports are useful for comparing the overall performance of 
sources across credit periods. 


CREDIT PERIOD ANALYSIS 

* Source by Credit Period 

Source by Current Source by Credit Period 


Credit Period Analysis reports offer views at the credit period (campaign) 
level. These reports are useful for evaluating billing performance for a 
set of credit periods over a period of time. 


PANEL ANALYSIS 

* Current Source by Effort by Panel 

• Current Source by Panel 


Panel Analysis reports offer views at the panel level. These reports are 
useful for comparing and evaluating panels within credit periods 
(campaigns), especially important when performing test panel analysis. 


EFFORT ANALYSIS 

Panel by Effort 

♦ Source by Current Source by Effort 

♦ Source by Credit Period by Effort 

♦ Source by Effort by Current Source 


Effort Analysis reports offer views at the effort level. These reports are 
useful for evaluating the performance of billing efforts for a group of 
credit periods or sources, or within credit periods over time. 


CHECKING REPORTS 

* Campaign Setup 

• Sourcekey Assignment 


Effort Analysis reports offer views at the effort level. These reports are 
useful for evaluating the performance of billing efforts for a group of 
credit periods or sources, or within credit periods over time. 
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Reporting 

DTP 
OVERVIEW 

IMT provides a variety of different DTP (Direct to Publisher) Reports for analyzing the performance of DTP 
sources and campaigns. As is the case with ail IMT reports, these reports provide drill-down capabilities, which 
allow users to simply double-dick on a field to view the detail below it. Any campaign for which keys have been 
assigned is viewable through these reports. The standard fields on IMT DTP reports indude: 

• Mail Qty 

• Gross Subs 

• Gross Sub % 
. Net Subs 

• Net Sub % 

• Cash Sub % 

• Credit Sub % 

« Total Sub Payup % 

• Average Net Term 

• Average Net $/Sub 
« Net Sub $ 

• Total Expense 

• NPN Sub 

• Indexing - Grs%, Net %, NPN 

For more information about field definitions, or how fields are calculated, please look to the table on the next 
page or refer to the glossary. 
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DTP 

FIELD DEFINITIONS 



1 FIELD 


DEFINITION / CALC METHOD 


TYPE 


v COMMENT 


MailQty 


Represents the quantity of promotions sent to a 
group of subscribers. 


Summarized 


The fulfillment house typically provides mail Qty. 
There is an option within Admin to override the 
fulfillment house mail quantity with an Override 
Mail quantity. Our formula will automatically use 
the Override Mail quantity if a value has been 
entered; otherwise we will use the mail quantity 
from the fulfillment house. 


Gross Subs 


Represents the number of paid and credit 
subscriptions sold. 


Summarized 


Gross subscription quantities are typically 
provided by the fulfillment 


Gross Sub % 


Gross Subs / Total Mail Qty 


Calculated 


There are several ways users can influence the 
way Gross Sub % is calculated: 

L If the user provides a Mail Qty 
Override quantity, then Mail Qty 
Override is used instead of the Mail 
Qty. 

2. If "Newsstand Sale Qty" has been 
entered at the key level and response 
based on Sale "Y* Draw *N* is set to 
*Y" then the Newsstand Sale qty is 
used instead of substitute the Mail Qty. 

3. In addition, there is an option to affect 
the way Gross Sub % is calculated for 
subtotal groupings. By default the 
system assumes ALL promotion keys 
will contribute to the total mail 
quantity, if the Subtotal Rag on a key 
is set to "FALSE" the mail qty for that 
key will not be involved in the total 
mail qty. Adjusting the subtotal flags is 
particularly useful for Insert Card 
reporting. 


Net Subs 


Represents the number of paid subscriptions 
sold (cash plus paid credit). 


Summarized 


Net subscription quantities are typically provided 
by the fulfillment 


Net Sub % 


Net Subs /Total MailQty 


Calculated 


There are several ways users can influence the 
way Net Sub % is calculated - see comments for 
Gross Sub %.' 
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® 

Reporting 



DTP 

FIELD DEFINITIONS - CONTINUED 



1 FIELD 


DEFINITION / CALC METHOD 


TYPE 


COMMENT 


Cash Sub % 


Cash Subs / Gross Subs 


Calculated 


Represents the number of Cash Subscriptions as 
a percentage of Gross Subscriptions, Cash Subs 
are subscriptions received with money. Cash Sub 
quantities are generally provided by the 
fulfillment house. 


Credit Sub % 


Credit Subs / Gross Subs 


Calculated 


Represents the number of Credit Subs as a 

|Jd Let ILdyc Ul urut» oUUb. vJcQJt oUu qU3lHJU€S 

are generally provided by the fulfillment house. 


Total Sub Payup % 


Net Subs /Gross Subs 


Calculated 


Net Subs induce both cash and paid credit 


Avg Net Term 


Net Copies / Net Subs 


Calculated 


Represents the average number of copies per net 
subscription. The fulfillment house generally 
provides gross Sub Copy quantities. 


Avg$ / NetSub 


Net Revenue / Net Subs 


Calculated 


Net Revenue represents the dollar value for net 
subscriptions. Net Revenue is generally provided 
by fulfillment house. 


Net Sub $ 


Total Net Revenue 


Summarized 


Total Net Revenue is aenerallv nmvifip<i hv fhp 
fulfillment house and represents the total dollar 
value of net subscriptions sold. 


Total Expenses 


Lettershop Costs+ Postage In + Postage Out + 
Premium Costs + Print Costs + Subs Service 
♦Other Costs + Billing Costs + Bad Pay Costs + 
List Costs 


Calculated 


Expenses are dependent on (1) the association 
of an Expense Set to a campaign, panel or key, 
and (2) the values and settings that define an 
Expense Set 

Note: List Costs are the only expense item NOT 
reliant on an Expense Set List Costs are applied 
directly to a key, and are calculated using either 
the mail qty or merge/purge qtyasa basis. 


NPN Sub 


(Net Revenue - Total Expense) / Net Subs 


Calculated 


Represents the average profit per net 
subscription sold. 


Indexes 
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Reporting 

DTP 

LIST OF AVAILABLE REPORTS 



DTP reports are grouped into subcategories, ranging from high-levei summary analysis to low-level list analysis. 
Below is a complete list of DTP reports broken down by subcategory. 



| REPORT CATEGORY 


DESCRIPTION 


SUMMARY ANALYSIS 

• Source Category by Source 


Summary Analysis reports offer high-level views at the source level 
These reports are useful for comparing the overall performance of 
sources across campaigns. 


CAMPAIGN ANALYSIS 

• Source by Campaign 

* Source by Campaign Type by Campaign 


Campaign Analysis reports offer views at the campaign level* These 
reports are useful for evaluating campaign either individually or over a 
period of time. 


PANEL ANALYSIS 

• Campaign by Panel Type by Test Type 

• Campaign by Panel 

• Campaign by Panel Subtype 
Campaign by Panel Subtype by Panel 

• Campaign by Panel Test Type 

* Campaign by Panel Test Type by Panel 

* Campaign by Panel Type 

* Campaign by Panel Type by Panel 
« Panel Type by Panel 

* Panel Type by Panel Subtype 


Panel Analysis reports offer views at the panel level. These reports are 
useful for comparing and evaluating panels within campaigns, especially 
important when performing test panel analysis. 


KEY ANALYSIS 

♦ Campaign by Panel by Key 


Key Analysis reports offer views at the key level. These reports are 
useful for comparing and evaluating source keys and lists. 


LIST ANALYSIS 

• List by List Segment 

• List by list Segment by Campaign 

• List Category by ust 

List Category by List by Ust Segment 
List History (by List and Segment) 
« Campaign by List 

• Campaign by Panel by List 

• Campaign by Panel by list and Segment 
Campaign by Panel by List by List Segment 
List by Campaign 


Ust Analysis reports offer views at the key level, with a specific focus on 
lists. These reports are particularly useful for evaluating the 
performance of list and list segments within a specific campaign, plus 
provide the ability to analyze the performance of list over time. 


PACKAGE ANALYSIS 

• Source by Panel Type by Package 


Package Analysis enables comparison of creative within a source. 


CROSS TITLE ANALYSIS 

• List by Title 

* Source by Campaign Month by Title 

♦ Source by Title 


Cross Title Analysis offer views at the source and campaign level. These 
reports are specifically designed to compare how titles are performing 
within the same sources. 


CHECKING REPORTS 

• Campaign Setup 

• Sourcekey Assignment 


Cross Trtle Analysis offer views at the source and campaign level. These 
reports are specifically designed to compare how titles are performing 
within the same sources. 


INTERNET 

• Campaign by Panel by Key 

♦ Campaign Type by Campaign 


Cross Title Analysis offer views at the source and campaign level. These 
reports are specifically designed to compare how titles are performing 
within the same sources. 
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Reporting 

Gift 
OVERVIEW 

IMT provides a variety of different gift reports for analyzing the performance of gift sources and campaigns. As 
is the case with all IMT reports, these reports provide drill-down capabilities, which allow users to simply double- 
dick on a field to view the detail below it Any campaign for which keys have been assigned is viewable through 
these reports. The standard fields on IMT gift reports include: 



• Mail Qty 

• Gross Orders 

• Gross Orders% 

• Gross Subs 

• Gross Subs % 

• Total Net Subs 
« Net Sub % 

« Total Payup % 

• Cash Sub % 

• Credit Sub % 

• Avg Net Term 

• AvgNet$/Sub 

• Sub-Ord Ratio 
« Net Subs $ 

• NPN Sub 

• Indexing - GrOrds%, Gr Sub %, NPN 



For more information about field definitions, or how fields are calculated, please look to the table on the next 
page or refer to the glossary. 
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Reporting 

Gift 

FIELD DEFINITIONS 



FIELD 


DEFINITION / CALC METHOD 


TYPE 


COMMENT 


MaiiQty 


Represents the quantity of promotions sent to 
a group of subscribers. 


Summarized 


The fulfillment house typically provides mail 
Qty. There is an option within Admin to 
override the fulfillment house mail quantity 
with an Override Mai! quantity. Our formula 
will automatically use the Override Mail 
quantity if a value has been entered; otherwise 
we will use the mail quantity from the 
fulfillment house. 


Gross Orders 


Represents the number of paid and credit 
subscription orders (donor responses). An 
order may include more than one subscription 


Summarized 


Gross Order quantities are generally provided 
by the fulfillment house 


Gross Order % 


Gross Orders / Total Mail Quantity 


Calculated 


There are several ways users can influence the 
way Gross Sub % is calculated - see 
comments for Gross Sub % 


Gross Subs 


Represents the number of paid and credit 
subscriptions sold (donees and subscribing 
donors) 


Summarized 


Gross Sub quantities are generally provided by 
the fulfillment house 


Gross Sub % 


Gross Subs / Total Mail Qty 


Calculated 


There are several ways users can influence the 
way Gross Sub % is calculated: 

1. If the user provides a Mail Qty 
Override quantity, then Mail Qty 
Override is used instead of the Mail 
Qty. 

2. In addition, there is an option to 
affect the way Gross Sub % is 
calculated for subtotal groupings. By 
default the system assumes All 
promotion keys will contribute to the 
total mail quantity, unless the 
Subtotal Rag on a key is set to 
"FALSE* the mail qty for that key will 
not be involved in the total mail qty. 
Adjusting the subtotal flags is 
particularly useful for Insert Card 
reporting. 
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Reporting 

Gift 

FIELD DEFINITIONS - CONTINUED 



| FIELD 


DEFINITION / CALC METHOD 


TYPE 


COMMENT 


Total Net Subs 


Represents the number of paid subscriptions 
sold (cash plus paid credit). 


Summarized 


Net subscription quantities are typically 
provided by the fulfillment 


Net Sub % 


Net Subs /Total Mail Qty 


Calculated 


There are several ways users can influence the 
way Net Sub % is calculated - see comments 
for Gross Sub %. 


Total Payup % 


Net Subs /Gross Subs 


Calculated 


Net Subs include both cash and paid credit 


Cash Sub % 


Cash Subs / Gross Stihs 


calculated 


Represents the number of Cash Subscriptions 
as a percentage of Gross Subscriptions Cash 
Subs are subscriptions received with money. 
Cash Sub quantities are generally provided by 
the fulfillment house. 


Credit Sub % 


Credit Subs / Gross Subs 


Calculated 


Represents the number of Credit Subs as a 
percentage of Gross Subs. Credit Sub quantities 
are generally provided by the fulfillment house. 


Avg Net Term 


Net Copies /Net Subs 


Calculated 


Represents the average number of copies per 
Net subscription. The fulfillment house 
generally provides gross Sub Copy quantities. 


Avg Net$ / Sub 


Net Revenue / Net Subs 


Calculated 


Net Revenue represents the dollar value for Net 
subscriptions. Net Revenue is generally 
provided by fulfillment house. 


Sub-Ord Ratio 


Gross Sub / Gross Orders 


Calculated 


Represents the ratio of Gross Subs 
(donee+donor renewal order) to Gross Orders, 


Net Sub? 


Total Net Revenue 


Summarized 


Total Net Revenue is generally provided by the 
fulfillment house and represents the total dollar 
value of net subscriptions sold. 


NPN Sub 


(Net Revenue - Total Expense) / Net Subs 


Calculated 


Represents the average profit per net 
subscription sold. 


Indexes 
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Reporting 



Gift 

LIST OF AVAILABLE REPORTS 

Gift reports are grouped into subcategories, ranging from high-level summary analysis to low-level list analysis. 
Below is a complete list of gift reports broken down by subcategory. 



1 REPORT CATEGORY 


DESCRIPTION 


SUMMARY ANALYSIS 

• Source Category by Source 


Summary Analysis reports offer high-level views at the source level. 
These reports are useful for comparing the overall performance of 
sources across campaigns. 


CAMPAIGN ANALYSIS 

• Campaign Type by Campaign 

♦ Source by Campaign 


Campaign Analysis reports offer views at the campaign level. These 
reports are useful for evaluating campaign either individually or over a 
period of time. 


PANEL ANALYSIS 

* Campaign by Panel 

* Campaign by Panel Subtype 

* Campaign by Panel Subtype by Panel 

* Campaign by Panel Type 

* Campaign by Panel Type by Panel 

* Campaign by Test Type 

* Campaign by Test Type by Panel 


Panel Analysis reports offer views at the panel level. These reports are 
useful for comparing and evaluating panels within campaigns, especially 
important when performing test panel analysis. 


EFFORT ANALYSIS 

* Source by Campaign by Effort 

* Source by Effort 
Campaign by Panel by Effort 
Source by Effort by Campaign 


Effort Analysis reports offer views at the effort level. These reports are 
useful for evaluating the performance of efforts within a particular 
campaign, or for a group of campaigns. 


KEY ANALYSIS 

• Campaign by Panel by List 

♦ Campaign by Panel by Key 


Key Analysis reports offer views at the key level. These reports are 
useful for comparing and evaluating source keys and lists. 


CROSS TITLE ANALYSIS 

* Source by Title 


Cross Title Analysis offer views at the source and campaign level. These 
reports are specifically designed to compare how titles are performing 
witfiin the same sources. 


CHECKING REPORTS 

♦ Campaign Setup 

• Sourcekey Assignment 
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Reporting 

Renewal 
OVERVIEW 

IMT provides a variety of different renewal reports for analyzing the performance of renewal sources and 
campaigns. As is the case with all IMT reports, these reports provide drili-down capabilities, which allow users to 
simply double-dick on a field to view the detail below it Any campaign for which keys have been assigned is 
viewable through these reports. The standard fields on IMT renewal reports include: 

Est. Max Effort Qty 
Total Mail Qty 
Gross Subs 
Gross Sub % 
Net Subs 
Net Sub % 
Cash Sub % 
Credit Sub % 
Total Sub Payup % 
Avg Term 
Avg $/Sub 
Net Sub $ 
Expenses 
NPN sub 

Indexing - Grs %, Net %, NPN 



For more information about field definitions, or how fields are calculated, please look to the table on the next 
page or refer to the glossary. 
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(2) 









Renewal 








FIELD DEFINITIONS 


FIELD > 


DEFINITION / CALC METHOD 


TYPE 


COMMENT 



Est Max Effort Qty 


The largest mail quantity of a prior source 
group and renewal series within an expire 
pool. 


Calculated 


IMT automatically calculates the maximum 
effort by looking within an expire pool and 
finding the maximum mail quantity by prior 
source, regardless of the effort number. For 
example: 

Expire 380 

Prior Source A 
Effort 1 = 100 
Effort 2 = 90 
Max Effort = 100 

Prior Source B 
Effort 1 = 90 
Effort 2 = 100 
Max Effort = 100 
Total Max Effort * 200 


Total Mai! Qty 


Represents the quantity of promotions sent to 
a group of subscribers. 


Summarized 


The fulfillment house typically provides mail 
Qty. There is an option within Admin to 
override the fulfillment house mail quantity 
with an Override Mail quantity, however this is 
generally not utilized for renewals. 


Gross Subs 


Represents the number of paid and credit 
subscriptions sold. 


Summarized 


Gross subscription quantities are typically 
provided by the fulfillment 


Gross Sub % 


Gross Subs / Total Mail Qty 
or 

Gross Sub / Est Max Effort Qty 


Calculated 


The basis for calculating Gross Sub % will vary 
depending on the level and order of groupings. 

• For individual efforts Total Mail Qty is 
used, 

• For source, campaign, and panel 
subtotals, Est Max Effort Qty is used. 


Net Subs 


Represents the number of paid subscriptions 
sold (cash plus paid credit). 


Summarized 


Net subscription quantities are typically 
provided by the fulfillment 
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(2) 

Reporting 



Renewal 

FIELD DEFINITIONS - CONTINUED 



1 FIELD 


DEFINITION / CALC METHOD 


TYPE 


COMMENT 


Net Sub % 


Net Subs /Total MailQty 
or 

imci. ouu / est* ridX CiTOn. Vd^r 


Calculated 


The basis for calculating Net Sub % will vary 
depending on the level and order of groupings. 

* For individual efforts Total Mail Qty is 
used. 

• For source, campaign, and panel 
subtotals, Est Max Effort Qty is used. 


Cash Sub % 


Cash Subs / Gross Subs 


Calculated 


Represents the number of Cash Subscriptions 
as a percentage of Gross Subscriptions. Cash 
Subs are subscriptions received with money. 
Cash Sub quantities are generally provided by 
the fulfillment house. 


Credit Sub % 


Credit Subs /Gross Subs 


Calculated 


Represents the number of Crecfit Subs as a 

rjercentaop nf f^rncc the CrwHt- Ci iK m i^nKfi/v 

»uayr^ \ji ullw JULo. UcUll OiJU GUonUTieS 

are generally provided by the fulfillment house. 


Total Sub Payup % 


Net Subs / Gross Subs 


Calculated 


Net Subs indude berth cash and paid credit 


AvgTerm 


Gross Copies / Gross Subs 


Calculated 


Represents the average number of copies per 
gross subscription. The fulfillment house 
generally provides gross Sub Copy quantities. 


Avg $ 1 Sub 


Gross Revenue / Gross Subs 


Calculated 


Gross Revenue represents the dollar value for 
gross subscriptions. Gross Revenue is 
generally provided by fulfillment house. 


Net Sub $ 


Total Net Revenue 


Summarized 


Total Net Revenue is generally provided by the 
fulfillment house and represents the total dollar 
value of net subscriptions sold. 


Expenses 


Lettershop Costs* Postage In + Postage Out 
+ Premium Costs + Print Costs + Subs Service 
+Other Costs + Billing Costs + Bad Pay Costs 

+ LISc LOStS 


Calculated 


Expenses are deoendent on (1} the accodatinn 
of an Expense Set to a campaign, panel or key, 
and (2) the values and settings that define an 
Expense Set 

Note: List Costs are the only expense item NOT 
reliant on an Expense Set List Costs are 
applied directly to a key, and are calculated 
using either the mail qty or merge/purge qty as 
a bas^s. 


NPN Sub 


(Net Revenue - Total Expense) / Net Subs 


Calculated 


Represents the average profit per net 
subscription sold. 


Indexes 
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Reporting 



Renewal 

LIST OF AVAILABLE REPORTS 

Renewal reports are grouped into subcategories, ranging from high-level summary analysis to iow-Ievel effort 
analysis. Below is a complete list of renewal reports broken down by subcategory. 



1 REPORT CATEGORY 


DESCRIPTION 


SUMMERY ANALYSIS 

Source Category by Prior Source 

• Source Category by Source 

♦ Source Cateqory by Source by Prior Source 


Summary Analysis reports offer higrHevel views at the source level. 
These reports are useful for comparing the overall performance of 
source across expires (campaigns). 


EXPIRE ANALYSIS 

♦ Expire by Source 

♦ Source by Expire by Prior Source 

♦ Source by Expire 


Campaign Analysis reports offer views at the expire level. These reports 
are useful for evaluating expires (campaigns) either individually or over 
a period of time. 


PANEL ANALYSIS 

• Source by Expire by Effort by Pane! 

• Source by Expire by Panel by Effort 

• Source by Expire by Panel 

• Source by Expire by Prior Source by Panel 


Panel Analysis reports offer views at the panel level. These reports are 
useful for comparing and evaluating panels within expires (campaigns), 

P^TVf*lJ%ln/ fmrWf"f°Pnf w/hAfl rwfnmnirm ¥&c¥ nerval *ai-»-*lu*»*d- 

t-3j-?cvjaiiy tui|juiu3iii wi tci i per i urn iii ty isst. panei analysts. 


EFFORT ANALYSIS 

♦ Prior Source by Effort 

♦ Source by Effort 

« Source by Effort by Prior Source 

♦ Source by Expire by Effort 

« Source by Prior Source by Effort 


Effort Analysis reports offer views at the effort level. These reports are 
useful for evaluating the performance of efforts in an expire, or over 
time for a group of expires. 


TRENDING ANALYSIS 

♦ Source by Effort by Expire 

♦ Source by Prior Source by Expire 


Trending Analysis reports offer views at the effort and prior source 
level. These reports are useful for evaluating the performance of efforts 
and prior sources over time for a group of expires. 


CROSS TITLE ANALYSIS 

• .Prior Source by Title 

• Title by Prior Source 

• Source by Tltie 

• Source by Group 


Cross Title Analysis offer views at the source and campaign level. These 
reports are specifically designed to compare how titles are performing 
within the same sources. 


CHECKING REPORTS 

• Sourcekey Assignment 

♦ Campaign Setup 
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TERM 



DEFINITION 



Glossary 



EXAMPLES 



Available Keys 


Set of active Source Keys 
that have not yet been 
assigned to a Panel 


• See pages 8 & 14 


AvgNet$/Sub 


Net Revenue -r Net 
Subscriptions 


* $12.00 


Avg Net Term 


Net Copies + Net 
Subscriptions 


• 12.0 


B > 


Browser 


Application that allows you 
to view information on the 
internet. 


• Internet Explorer (IE) 


c — ' 


Campaign 


Marketing initiative 
consisting of one or more 
panels 


• 2000-01 nirwf Mail 

* 2000-01 Insert Cards 


Campaign Status 


Progress status of your 
campaign 


• Open 

• Closed 

• Pendinq 


Campaign Type 


Broad type classification of 
a Campaign which is user 
defined and can differ 
between sources 


• Winter DM 

♦ Hotline 


Company 


Corporation, Inc, LLC etc... 


♦ ABC Direct Marketing Company 


Cash Sub % 


Cash Subscriptions + Gross 
Subscriptions 


• 40% 


Control Panel 


Current offer / creative 
used as the standard 
against which to test any 
new offer / creative 


• Control 


CPM 


Cost per 1000 (M) 


• $75.00 


CPU 


Cost per Unit 


• $1.50 


Credit Sub % 


Credit Subscriptions + Gross 
Subscriptions 


* 85.3% 
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TERM 



DEFINITION 



Glossary 



EXAMPLES 



Drill Down 


Data selection method in 
which you filter or 'drill' 
through your data by 
selectinq specific criteria 


♦ See page 8 

• Run a report and double click on a Campaign Name 
and it will reveal the Panels within a Campaign, 
continue and you can drill down to the key 


Division 


Group of Products within a 
Company 


• Magazine Division 

• Book Division 


E 1 


Edit View Screen 


Screen in which you edit or 
delete records in Admin 
tables 


• See pages 15 - 18 


Expense Set 


Set of expenses which can 
be applied to a Campaign, 
Panel or Key 


• 2000-01 DM 6x9 Package Expense 

• Triple Insert Expense 


Est Max Mail Qty 


Maximum quantity mailed 
between efforts within a 
Panel for all levels above 
effort 


* Renewal Field Definitions - Page 49 


F ■ * 


Fast Find 


Direct method to locate 
Sources, Campaigns and 
Panels within IMT Admin 


• See page 8 


Filter Keys 

„ 


Process of selecting specific 
Source Keys that you want 
to assiqn to a panel 


• See page 14 


G " 1 — ~ 1 


Gross Subs 


Total quantity of subs, cash 
+ credit 


* 1000 


Group 


Grouping of related 
products within a Division 


• Arts Group 

• Outdoor Group 


Group Edit 


Feature that allows user to 
edit groups of records at 
one time 


* See Pages 15 - 18 


Gross Sub % 


Gross subscriptions * Mail 
Qty 


• 60% 


L 


List 


Source of list rental names . 


• Tattooing Weekly 

• Money Monthly 


List Category 


Broad category of related 
Lists 


• House Lists 

• Outside Lists 


list Segment 


Specific selection from a 
List 


• Paid Subscribers 

• 3 Month Buyers 


List Cost Factor 


Provides the ability to 
calculate list expenses by 
factoring a percentage 
higher (or lower) 


• If you have defined your actual list costs at $100/M, 
but you want your reports to reflect a list cost of 
$110/M, then would apply a factor 1.1 
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TERM 



M 



DEFINITION 



Glossary 



EXAMPLES 



MailQty 


Quantity of Packages 
mailed for a specific 
Campaign, Panel, or 
Promotion Key 


• 1,000,000 Control Panel 

• 15,000 Test Panel 1 


Multi-Edit 


Feature that allow user to 
edit one or more records at 
a time 


• See Page 15 - 18 


N ■ ' 


Net Sub$ 


Net subscription revenue 
(cash + paid credit 
subscriptions) for a 
Campaign, Panel, or 
Promotion Key 


• $12,220 


Net Sub % 


Net Subscriptions *r Mail 
Qty 


• 1.05% 


NPN Sub 


Net per Net Subscribers 


• (Net Sub Rev - Total Exp) + Net Subs = NPN Sub 


NPN Pymt 


Net Per Net Payment 


• (Total Rev - Total Exert 4- Total Pvmr = npn Pvmt 


o - ^ 1 


Optional Effort ID 


Provides the ability to 
assign an effort sequence 
to keys. This is only valid 
for GIFT sources. 


« Alphanumeric ID 


p > 


Panel 


Sub-grouping within a 
Campaign 


• New Creative Panel 

♦ Savinqs Certificate 


Panel Type 


Set of related Panels 
typically used to distinguish 
Control Panels from Test 
Panels 


• Control 

• Test 

• Newsstand 


Panel Subtype 


Another field used to 
further define a set of 
related Panels 


• Sweepstakes 

* Bind-in 


Promotion Key 
- A.K.A- 
Source Key 
Data Key 
Document Key 


Alphanumeric code that 
labels the elements) to be 
measured in a Campaign. 
Source Keys are originated 
at fulfillment houses and 
standardized by IMT 


• 6KA2 0526 

• 41B2_08/21/2000 


Panel Test Type 


Field used to define a set of 
related Panels by test 
method 


• Price 

* Offer 


Panel Package 


Defines your packaqe type 


• 6x9 qreen 


Product Group 


Grouping of products within 
a Division 


• Magazines 

• Books 


Pymt on Pymt 


Duplicate payment 


• 


Pay After Cancel 


Payment received after 
subscription canceled 


• Sub sends a payment when sub has been stopped 
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TERM 



DEFINITION 



Glossary 



Request Cncl 


vaivj^ ouubci iL>tirb who nave 

requested their Subscription 
to be canceled 


• 100 


Request Cnd % 


Request Cnd -r Gross Subs 


• 30% 


Revenue Set 


Revenue over and above 
Subscription revenue, 
applied to a Campaign, 
Panel or Key 


• List Rental Revenue 

• Advertising Revenue 


s — 1 


Setup Table 


Tables which are used to 
define Campaigns, Panels 
or Keys in more detail 
(optional fields) 

See pages 9-10 


• AutoAdmin Setup 

• Campaign Status 

• Campaign Type 

• Expense Set 

• List Category 

• List Name 

• List Segment 

• Panel Package 

• Panel Sub Type 

• Panel Test Type 

• Panel Type 

• Revenue Set 

• Source Description 

• Prior/Current Source Description 


Source 


Spedfic channel of sale 


• Direct Mail 

♦ Renewals 


Source Category 


Grouping of Sources 
(defined by IMT) 


• Agents 

• Billing 

• DTP 

• Gifts 

• Renewals 


Sub Value 


Dollar value of a sale of a 
Product or service for a 
specific time period 


• $14.95/1 Year 

* $z^00 / 2 Year 


Step Up Qty 


Renewal at Birth or 
Duplicate Payment 


♦ 50 orders 


Step Up % 


Step Up Quantity -f Bills 
Mailed 


• 5% 


Subscription 


Sale of a Product or service 
for a spedfic time period 


• Monthly paying customer/member 


Subtotal Flag 


Used as a marker for 
calculating the mail quantity 
for subtotal. If the subtotal 
flag is set to False, then 
that key's mail quantity will 
NOT be included in 
subtotals 


* Used monthly for Insert Cards 


Subtype 


Same as Panel Type 


• See Panel Type 


Sub - Ord Ratio 


Subscriptions (donees) / 
Orders (donor) Ratio 


* Gross Sub -r Gross Orders = Sub-Ord Ratio 
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TERM DEFINITION EXAMPLES 



T 



Term Value 


Number of issues sold 
for a specific subscription 
sale 


♦ 12 Issues / 1 Year 
« 24 Issues / 2 Years 


Test Panel 


JNCW OUcr / vJcaUVC 

tested against control 


• Smith 6x11, 14/$35.00 12/23/99 


Total Rev 


Total Revenue on 

r oyi l IC1 10 


• $2,200 


Total Exp 


Total cost of a number of 
individual expense items 


• Lettershop + Printing + Postage Out + Postage 
In + Premium + Bad Pay + Billing + Subs 
Service + Expenses Other + list Expense = Total 
Exp 


Total Net Subs 


Gross Subs that have 
paid, includes, Cash and 
Paid Credit Subscriptions 


• 50% cash 

• 50% paid credit 

• 75% = Total Net Subs 


Total Sub Pay up % 


Net Subs -r Gross Subs 


* 50% 
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Products & Services 



Successful companies understand that knowing their customers, responding to their needs, and capitalizing on 
market share is the key to success. It's a belief that we share at IMT, because we know that "integrated 
marketing information is powerful 7 '. With a focus on the bottom line, our cutting-edge systems are used by some 
of the most progressive subscription-based companies today. 

IMT Reporting 

Provides highly segmented, clearly defined marketing analysis at almost any level - from source channel to 
campaign to list - regardless of the database size. 

IMT Modeling 

A sophisticated tool that businesses use to forecast trends and play what-if scenarios, with an emphasis on 
lifetime customer value. 

Consulting Services 

Services range from database design, business forecasting, retention program development, to strategic 
operations analysis. 



© 1994 - 2000 Integrated Marketing Technology, Inc. 
www.imtnetwork.com • 415.352.2370 



57 



(2) 



Report Samples 



• AGENT 

• BILLING 

• DTP 

• GIFT 

• RENEWAL 



o 
Q 
SI 
O 



# 



O 

O 
O 



• 
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